View | Details | Raw Unified | Return to bug 8265
Collapse All | Expand All

(-)dpkg-source (-1 / +1 lines)
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");

Return to bug 8265