Changeset 3496 in MondoRescue

Timestamp:

Feb 8, 2016, 3:23:16 PM (8 years ago)

Author:

Bruno Cornec

Message:

• Avoid a perl warning on mr-label

File:

• branches/3.2/MondoRescue/bin/mr-label (modified) (1 diff)

branches/3.2/MondoRescue/bin/mr-label

@@ -116 +116 @@
 die "Unable no label/uuid defined" if ((not defined $label) && (not defined $uuid));
 
-my $inputf  = $ARGV[0];
+my($inputfh, $buffer, $offset, $length, $hexlabel, $newbuf);
+
+$inputf  = $ARGV[0];
 die "$0: no input file defined" if (not defined $inputf);
 
-my($inputfh, $buffer, $offset, $length, $hexlabel, $newbuf);
 open($inputfh,  "+< $inputf") || die "$0: cannot open $inputf for reading/writing: $!";
 binmode($inputfh) || die "binmode failed: $!";