Changeset 3496


Ignore:
Timestamp:
Feb 8, 2016, 3:23:16 PM (22 months ago)
Author:
bruno
Message:
  • Avoid a perl warning on mr-label
File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/3.2/MondoRescue/bin/mr-label

    r3488 r3496  
    116116die "Unable no label/uuid defined" if ((not defined $label) && (not defined $uuid));
    117117
    118 my $inputf  = $ARGV[0];
     118my($inputfh, $buffer, $offset, $length, $hexlabel, $newbuf);
     119
     120$inputf  = $ARGV[0];
    119121die "$0: no input file defined" if (not defined $inputf);
    120122
    121 my($inputfh, $buffer, $offset, $length, $hexlabel, $newbuf);
    122123open($inputfh,  "+< $inputf") || die "$0: cannot open $inputf for reading/writing: $!";
    123124binmode($inputfh) || die "binmode failed: $!";
Note: See TracChangeset for help on using the changeset viewer.