diff options
Diffstat (limited to 'pcr/lcov/fix-undef-behaviour.patch')
| -rw-r--r-- | pcr/lcov/fix-undef-behaviour.patch | 37 |
1 files changed, 37 insertions, 0 deletions
diff --git a/pcr/lcov/fix-undef-behaviour.patch b/pcr/lcov/fix-undef-behaviour.patch new file mode 100644 index 000000000..3621fc898 --- /dev/null +++ b/pcr/lcov/fix-undef-behaviour.patch @@ -0,0 +1,37 @@ +Author: Alastair McKinstry <mckinstry@debian.org> +Description: Fix for undefined behavior in perl5.20 +Origin: http://bugs.debian.org/761308 +Forwarded: no +Last-Updated: 2014-09-13 + +Index: lcov-1.12/bin/lcov +=================================================================== +--- lcov-1.12.orig/bin/lcov ++++ lcov-1.12/bin/lcov +@@ -224,7 +224,9 @@ Getopt::Long::Configure("default"); + # Remove spaces around rc options + my %new_opt_rc; + +- while (my ($key, $value) = each(%opt_rc)) { ++ my @keys = keys %opt_rc; ++ for my $key (@keys) { ++ my $value = $opt_rc{$key}; + $key =~ s/^\s+|\s+$//g; + $value =~ s/^\s+|\s+$//g; + +Index: lcov-1.12/bin/geninfo +=================================================================== +--- lcov-1.12.orig/bin/geninfo ++++ lcov-1.12/bin/geninfo +@@ -284,8 +284,9 @@ Getopt::Long::Configure("default"); + { + # Remove spaces around rc options + my %new_opt_rc; +- +- while (my ($key, $value) = each(%opt_rc)) { ++ my @keys = keys %opt_rc; ++ for my $key (@keys) { ++ my $value = $opt_rc{$key}; + $key =~ s/^\s+|\s+$//g; + $value =~ s/^\s+|\s+$//g; + |