Select Code to Download

Select or download this

#!perl
use 5.14.0;
...
    close $FH or croak "Unable to close $filename after reading";
    return $state->hexdigest;
}

Select or download this

$ prove -v hexdig1.t 
hexdig1.t .. 
...
1..2
ok
All tests successful.

Select or download this

#!perl
use 5.14.0;
...
    close $FH or croak "Unable to close $filename after reading";
    return $state->hexdigest;
}

Select or download this

$ prove -v hexdig2.t 
hexdig2.t .. 
...
1..2
ok
All tests successful.

Select or download this

#!perl
use 5.14.0;
...
    close $FH or croak "Unable to close $filename after reading";
    return $state->hexdigest;
}

Select or download this

$ prove -v hexdig3.t 
hexdig3.t .. 
...
hexdig3.t (Wstat: 512 Tests: 2 Failed: 2)
  Failed tests:  1-2
  Non-zero exit status: 2

Select or download this

[tmp] $ ls -l /tmp/zgeqEkMDL8 /tmp/TrjkWZFjs2
-rw------- 1 jkeenan jkeenan 10100 Aug 29 12:46 /tmp/TrjkWZFjs2
-rw------- 1 jkeenan jkeenan 10100 Aug 29 12:46 /tmp/zgeqEkMDL8
[tmp] $ diff /tmp/zgeqEkMDL8 /tmp/TrjkWZFjs2
[tmp] $