Changeset 310

Show
Ignore:
Timestamp:
11/29/06 17:51:15 (7 years ago)
Author:
max
Message:

Added debugging messages

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • util/generate_status_csum

    r307 r310  
    3030{ 
    3131        my $fname = shift; 
     32        my $sha1 = Digest::SHA1->new(); 
    3233 
    33         my $sha1 = Digest::SHA1->new(); 
    34         $sha1->addfile($fname) if (-r $fname); 
     34        die "Unable to read file $fname: $!" unless (-r $fname); 
     35        $sha1->addfile($fname) or die "Unable to add file $fname to hash: $!"; 
    3536        printf "\t%s",$sha1->hexdigest; 
    3637}