|
Lines 718-724
Link Here
|
| 718 |
open(STDIN,"< $dscdir/$f") || &syserr("cannot read $dscdir/$f"); |
718 |
open(STDIN,"< $dscdir/$f") || &syserr("cannot read $dscdir/$f"); |
| 719 |
(@s= stat(STDIN)) || &syserr("cannot fstat $dscdir/$f"); |
719 |
(@s= stat(STDIN)) || &syserr("cannot fstat $dscdir/$f"); |
| 720 |
$s[7] == $size{$f} || &error("file $f has size $s[7] instead of expected $size{$f}"); |
720 |
$s[7] == $size{$f} || &error("file $f has size $s[7] instead of expected $size{$f}"); |
| 721 |
$m= `md5sum`; $? && subprocerr("md5sum $f"); $m =~ s/\n$//; |
721 |
$m= `md5sum`; $? && subprocerr("md5sum $f"); $m =~ s/ .*\n$//; |
| 722 |
$m =~ m/^[0-9a-f]{32}$/ || &failure("md5sum of $f gave bad output \`$m'"); |
722 |
$m =~ m/^[0-9a-f]{32}$/ || &failure("md5sum of $f gave bad output \`$m'"); |
| 723 |
$m eq $md5sum{$f} || &error("file $f has md5sum $m instead of expected $md5sum{$f}"); |
723 |
$m eq $md5sum{$f} || &error("file $f has md5sum $m instead of expected $md5sum{$f}"); |
| 724 |
open(STDIN,"</dev/null") || &syserr("reopen stdin from /dev/null"); |
724 |
open(STDIN,"</dev/null") || &syserr("reopen stdin from /dev/null"); |
