- debug messages added when doing md5sum

Changed files:
    file-fetcher.pl -> 1.34

diff --git a/file-fetcher.pl b/file-fetcher.pl
index 9c575aa5506ab1b4fc6a76016ba922ff002265a4..ea8d9bcdd15473c5ab9e19772a2216ec12ffe7b3 100644 (file)
--- a/file-fetcher.pl
+++ b/file-fetcher.pl
@@ -1,6 +1,8 @@
 #!/usr/bin/perl -w
 #
 
+use IPC::Run qw(run);
+
 $commits_list = "pld-cvs-commit\@pld-linux.org";
 
 $spool_dir = "./spool";
@@ -165,7 +167,17 @@ sub make_src_symlink($$)
 sub md5($)
 {
   my $file = shift;
-  my $md5 = `md5sum "$file" 2>/dev/null`;
+  my $in = "";
+  my $md5 = "";
+  my $err = "";
+  my @cmd = ("md5sum", $file);
+
+  run \@cmd, \$in, \$md5, \$err;
+  if ($err ne "") {
+    chomp($err);
+    $problems .= "       [debug]: " . $err . "\n";
+  }
+  chomp $md5;
   $md5 =~ /^([a-f0-9]{32})/ and $md5 = $1;
   return $md5;
 }