- yet another test

Changed files:
    specparser.pl -> 1.6

diff --git a/specparser.pl b/specparser.pl
index 5c867283f72a6e3f5acc1906401fe42f981d7381..7467e155d18b65e0d65831e4ac28ffe2d02e753d 100644 (file)
--- a/specparser.pl
+++ b/specparser.pl
@@ -76,7 +76,11 @@ sub print_md5($)
         my $s = $macro{"source_$1"};
        if ($s =~ /^([a-z0-9A-Z:\+\~\.\-\/_]|\%[0-9])+$/) {
          if ($s =~ /^(ftp|http):\/\//) {
-            print "$md5 $s\n";
+           if ($s =~ /\/$/) {
+             print "ERROR: $_[0]: source $no ($s) is directory\n";
+           } else {
+              print "$md5 $s\n";
+           }
          } else {
            print "ERROR: $_[0]: source $no ($s) isn't http/ftp url\n";
          }