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;
 
