37 lines
1 KiB
Diff
37 lines
1 KiB
Diff
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
|
|
===================================================================
|
|
--- bin/lcov
|
|
+++ 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
|
|
===================================================================
|
|
--- bin/geninfo
|
|
+++ 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;
|
|
|