--- mirror_cpan.pl	2003/02/01 00:40:22	1.1
+++ mirror_cpan.pl	2003/02/01 00:51:51	1.2
@@ -21,7 +21,8 @@
 # my $REMOTE = "file://Users/merlyn/MIRROR/CPAN/";
 
 ## warning: unknown files below this dir are deleted!
-my $LOCAL = "/mirrors/cpan/CPAN/";
+#my $LOCAL = "/mirrors/cpan/CPAN/";
+my $LOCAL = "/rest/cpan/CPAN/";
 
 my $TRACE = 0;
 
@@ -122,7 +123,7 @@
       print "$File::Find::name ... removed\n" if $TRACE;
       unlink $_ or warn "Cannot remove $File::Find::name: $!";
       my $path = $File::Find::name;
-      if ($path =~ s/\.tar\.gz/.readme/g && -f $path) {
+      if ($path =~ s/(\.tar\.gz|\.tgz)/.readme/g && -f $path) {
         # only if we erase archive also!
         unlink $path or warn "Cannot remove $path: $!";
       }
@@ -132,10 +133,9 @@
   sub check_readme {
 
     my $path = shift;
-
     # fixup some things
     my $readme_path = $path;
-    $readme_path =~ s/\.tar\.gz/.readme/g || return;	# just .tar.gz is supported!
+    $readme_path =~ s/\.(tar\.gz|\.tgz)/.readme/g || return;	# just .tar.gz is supported!
 
     my $at = Archive::Tar->new($path) or die "Archive::Tar failed on $path\n";