--- HelpDocUpdate.pl.orig	2007-09-28 00:04:06.812500000 +0800
+++ HelpDocUpdate.pl	2007-09-28 00:40:35.265625000 +0800
@@ -208,7 +208,7 @@
     }
 
     # skip core doc files
-    if ( $file =~ m[^/Pod/perl] ) {
+    if ( $file =~ m[^/pods] ) {
         push @perl_core_docs, $file;
         return;
     }
@@ -261,10 +261,10 @@
 Full-text search=$full_text_search
 Language=0x809 English (United Kingdom)
 Title=Perl $Config{version} Documentation
-Default topic=lib\\Pod\\perl.html
+Default topic=lib\\pods\\perl.html
 
 [FILES]
-lib\\Pod\\perl.html
+lib\\pods\\perl.html
 EOT
 
     open my $file, ">", $output_file or die "can't write Project file";
@@ -372,8 +372,8 @@
 }
 
 sub toc_core_docs {
-    my $prefix = "lib\\Pod";
-    my $p      = "lib\\Pod";
+    my $prefix = "lib\\pods";
+    my $p      = "lib\\pods";
     my @core;
 
     my @operating_systems;
@@ -393,13 +393,13 @@
         my @list = qw(delta);
         for ( sort @perl_core_docs ) {
             my $name = $_;
-            $name =~ s</Pod/perl><>;
+            $name =~ s</pods/><>;
             $name =~ s<\.html$><>;
 
             push @list, $name if $name =~ m/\d+delta/;
         }
         for (@list) {
-            push @deltas, help_topic( $_, "$p\\perl$_.html" );
+            push @deltas, help_topic( $_, "$p\\$_.html" );
         }
     }