File 2006-util-v5.24-perl-errors-on-redeclare.patch of Package qemu-testsuite.20756

Overview Repositories Revisions Requests Users Attributes Meta

File 2006-util-v5.24-perl-errors-on-redeclare.patch of Package qemu-testsuite.20756

From: Bruce Rogers <brogers@suse.com>
Date: Wed, 1 Jun 2016 13:00:46 -0600
Subject: util: v5.24 perl errors on redeclare

I get this error using perl v5.24:
Can't redeclare "my" in "my" at ./util/parserom.pl
line 160, near ", "

From what I can gather, we don't need those additional
"my"'s in the statement.

Signed-off-by: Bruce Rogers <brogers@suse.com>
---
 src/util/parserom.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/roms/ipxe/src/util/parserom.pl b/roms/ipxe/src/util/parserom.pl
index 28df6065263b0f488bc5f81d4d5b..5a849a540bf0939a92ca994914e3 100755
--- a/roms/ipxe/src/util/parserom.pl
+++ b/roms/ipxe/src/util/parserom.pl
@@ -157,7 +157,7 @@ sub process_isa_rom {
 
 # Output Makefile rules for the specified ROM declarations
 sub print_make_rules {
-    my ( $state, my $image, my $desc, my $vendor, my $device, my $dup ) = @_;
+    my ( $state, $image, $desc, $vendor, $device, $dup ) = @_;
     unless ( $state->{'is_header_printed'} ) {
         print "# NIC\t\n";
         print "# NIC\tfamily\t$state->{family}\n";

Places

File 2006-util-v5.24-perl-errors-on-redeclare.patch of Package qemu-testsuite.20756

Places