DISTFILES: ERRORS: bootsplash-3.0.7.tar.bz2

[Paweł Żurowski]

W liście z wto, 23-12-2003, godz. 01:28, Paweł Żurowski pisze: 
> to moze suid na katalog?

albo przynajmniej cos kolo tego, co jest w zalaczniku... sam nie
wrzucam, gdyz wole, by ktos, kto zna bardziej DF/perla, to jeszcze
sprawdzil...

pozdrawiam
-pawel

-- 
Pawel Zurowski
-------------- następna część ---------
Index: file-fetcher.pl
===================================================================
RCS file: /cvsroot/admin/distfiles/file-fetcher.pl,v
retrieving revision 1.30
diff -u -r1.30 file-fetcher.pl
--- file-fetcher.pl	7 Sep 2003 23:42:39 -0000	1.30
+++ file-fetcher.pl	23 Dec 2003 00:33:07 -0000
@@ -241,7 +241,7 @@
       $problems .= "$cmd:\n$out\n\n";
     }
   }
-  if (-f $local && -s $local > 0) {
+  if (-r $local && -s $local > 0) {
     my $computed_md5 = md5($local);
     if ($computed_md5 ne $md5) {
       $problems .= "FATAL: $url md5 mismatch, needed $md5, got $computed_md5\n";
@@ -260,6 +260,8 @@
         move_file($md5, $url, $local);
       }
     }
+  } elsif (-f $local && -s $local > 0) {
+    $problems .= "FATAL: $url ($md5) was not fetched ($cmd: $all_out): file is not readable\n";
   } else {
     $problems .= "FATAL: $url ($md5) was not fetched ($cmd: $all_out)\n";
   }