lcov/trunk/fix-undef-behaviour.patch

   1 Author: Alastair McKinstry <mckinstry@debian.org>
   2 Description: Fix for undefined behavior in perl5.20
   3 Origin: http://bugs.debian.org/761308
   4 Forwarded: no
   5 Last-Updated: 2014-09-13
   6
   7 Index: lcov-1.12/bin/lcov
   8 ===================================================================
   9 --- lcov-1.12.orig/bin/lcov
  10 +++ lcov-1.12/bin/lcov
  11 @@ -224,7 +224,9 @@ Getopt::Long::Configure("default");
  12         # Remove spaces around rc options
  13         my %new_opt_rc;
  14
  15 -       while (my ($key, $value) = each(%opt_rc)) {
  16 +       my @keys = keys %opt_rc;
  17 +       for my $key (@keys) {
  18 +               my $value = $opt_rc{$key};
  19                 $key =~ s/^\s+|\s+$//g;
  20                 $value =~ s/^\s+|\s+$//g;
  21
  22 Index: lcov-1.12/bin/geninfo
  23 ===================================================================
  24 --- lcov-1.12.orig/bin/geninfo
  25 +++ lcov-1.12/bin/geninfo
  26 @@ -284,8 +284,9 @@ Getopt::Long::Configure("default");
  27  {
  28         # Remove spaces around rc options
  29         my %new_opt_rc;
  30 -
  31 -       while (my ($key, $value) = each(%opt_rc)) {
  32 +       my @keys = keys %opt_rc;
  33 +       for my $key (@keys) {
  34 +               my $value = $opt_rc{$key};
  35                 $key =~ s/^\s+|\s+$//g;
  36                 $value =~ s/^\s+|\s+$//g;
  37