add pcr/lcov

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;
+