19b6a41b6d
To add to the previous changes over the last day or so, we now are gcc6 and perl 5.24 compatible. yeah! OBS-URL: https://build.opensuse.org/request/show/399560 OBS-URL: https://build.opensuse.org/package/show/Virtualization/qemu?expand=0&rev=295
34 lines
1.0 KiB
Diff
34 lines
1.0 KiB
Diff
From 8eed6cfa2540976fab0e6ce93c82f413cf3f4e5e Mon Sep 17 00:00:00 2001
|
|
From: Bruce Rogers <brogers@suse.com>
|
|
Date: Wed, 1 Jun 2016 13:00:46 -0600
|
|
Subject: [PATCH] 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/src/util/parserom.pl b/src/util/parserom.pl
|
|
index 28df606..5a849a5 100755
|
|
--- a/src/util/parserom.pl
|
|
+++ b/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";
|
|
--
|
|
1.9.0
|
|
|