Changeset 10856

Timestamp:

06/23/06 17:02:19 (2 years ago)

Author:

audreyt

Message:

* update the docs/Perl6 syncer

Files:

• docs/Perl6/Makefile.PL (modified) (1 diff)

docs/Perl6/Makefile.PL

@@ -61 +61 @@
         my $file = $Spec{$num};
         print "  $num --> Spec/$file\n";
+        use File::Basename;
+        my $dir = (dirname(__FILE__) || '.');
         LWP::Simple::mirror(
-            "$BaseURI/$num.pod" => "Spec/$file.pod"
+            "$BaseURI/S$num.pod" => "$dir/Spec/$file.pod"
         );
     }