perl-attribute_error.patch

   1 --- perl-5.10.0/t/comp/require.t.orig   2007-12-18 11:47:08.000000000 +0100
   2 +++ perl-5.10.0/t/comp/require.t        2008-12-13 14:24:44.344895352 +0100
   3 @@ -15,7 +15,7 @@
   4
   5  my $Is_EBCDIC = (ord('A') == 193) ? 1 : 0;
   6  my $Is_UTF8   = (${^OPEN} || "") =~ /:utf8/;
   7 -my $total_tests = 49;
   8 +my $total_tests = 50;
   9  if ($Is_EBCDIC || $Is_UTF8) { $total_tests -= 3; }
  10  print "1..$total_tests\n";
  11
  12 @@ -258,6 +258,20 @@
  13      }
  14  }
  15
  16 +#  [perl #49472] Attributes + Unkown Error
  17 +
  18 +{
  19 +    do_require
  20 +       'use strict;sub MODIFY_CODE_ATTRIBUTE{} sub f:Blah {$nosuchvar}';
  21 +    my $err = $@;
  22 +    $err .= "\n" unless $err =~ /\n$/;
  23 +    unless ($err =~ /Global symbol "\$nosuchvar" requires /) {
  24 +       $err =~ s/^/# /mg;
  25 +       print "${err}not ";
  26 +    }
  27 +    print "ok ", ++$i, " [perl #49472]\n";
  28 +}
  29 +
  30  ##########################################
  31  # What follows are UTF-8 specific tests. #
  32  # Add generic tests before this point.   #
  33 --- perl-5.10.0/toke.c.orig     2007-12-18 11:47:08.000000000 +0100
  34 +++ perl-5.10.0/toke.c  2008-12-13 14:24:47.805309079 +0100
  35 @@ -692,6 +692,7 @@
  36  #else
  37      parser->nexttoke = 0;
  38  #endif
  39 +    parser->error_count = oparser ? oparser->error_count : 0;
  40      parser->copline = NOLINE;
  41      parser->lex_state = LEX_NORMAL;
  42      parser->expect = XSTATE;