diff options
Diffstat (limited to 'pcr/lcov/fix-undef-behaviour.patch')
| -rw-r--r-- | pcr/lcov/fix-undef-behaviour.patch | 37 |
1 files changed, 0 insertions, 37 deletions
diff --git a/pcr/lcov/fix-undef-behaviour.patch b/pcr/lcov/fix-undef-behaviour.patch deleted file mode 100644 index 3621fc898..000000000 --- a/pcr/lcov/fix-undef-behaviour.patch +++ /dev/null @@ -1,37 +0,0 @@ -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; - |