--- test/html-whatpm/parser.cgi	2007/05/01 10:27:06	1.2
+++ test/html-whatpm/parser.cgi	2007/05/01 11:05:04	1.3
@@ -15,8 +15,8 @@
 
 if ($mode eq '/html' or $mode eq '/test') {
   require Encode;
-  require What::HTML;
-  require What::NanoDOM;
+  require Whatpm::HTML;
+  require Whatpm::NanoDOM;
 
   my $s = $http->parameter ('s');
   if (length $s > 1000_000) {
@@ -34,14 +34,14 @@
     print STDOUT "0,0,", $_[0], "\n";
   };
 
-  my $doc = What::HTML->parse_string
-      ($s => What::NanoDOM::Document->new, $onerror);
+  my $doc = Whatpm::HTML->parse_string
+      ($s => Whatpm::NanoDOM::Document->new, $onerror);
 
   print "#document\n";
 
   my $out;
   if ($mode eq '/html') {
-    $out = What::HTML->get_inner_html ($doc);
+    $out = Whatpm::HTML->get_inner_html ($doc);
   } else { # test
     $out = test_serialize ($doc);
   }