SOURCES: perl-attribute_error.patch (NEW) - http://public.activestate.com/c...
radek
radek at pld-linux.org
Sat Dec 13 14:45:54 CET 2008
Author: radek Date: Sat Dec 13 13:45:54 2008 GMT
Module: SOURCES Tag: HEAD
---- Log message:
- http://public.activestate.com/cgi-bin/perlbrowse/p/33265
---- Files affected:
SOURCES:
perl-attribute_error.patch (NONE -> 1.1) (NEW)
---- Diffs:
================================================================
Index: SOURCES/perl-attribute_error.patch
diff -u /dev/null SOURCES/perl-attribute_error.patch:1.1
--- /dev/null Sat Dec 13 14:45:55 2008
+++ SOURCES/perl-attribute_error.patch Sat Dec 13 14:45:49 2008
@@ -0,0 +1,42 @@
+--- perl-5.10.0/t/comp/require.t.orig 2007-12-18 11:47:08.000000000 +0100
++++ perl-5.10.0/t/comp/require.t 2008-12-13 14:24:44.344895352 +0100
+@@ -15,7 +15,7 @@
+
+ my $Is_EBCDIC = (ord('A') == 193) ? 1 : 0;
+ my $Is_UTF8 = (${^OPEN} || "") =~ /:utf8/;
+-my $total_tests = 49;
++my $total_tests = 50;
+ if ($Is_EBCDIC || $Is_UTF8) { $total_tests -= 3; }
+ print "1..$total_tests\n";
+
+@@ -258,6 +258,20 @@
+ }
+ }
+
++# [perl #49472] Attributes + Unkown Error
++
++{
++ do_require
++ 'use strict;sub MODIFY_CODE_ATTRIBUTE{} sub f:Blah {$nosuchvar}';
++ my $err = $@;
++ $err .= "\n" unless $err =~ /\n$/;
++ unless ($err =~ /Global symbol "\$nosuchvar" requires /) {
++ $err =~ s/^/# /mg;
++ print "${err}not ";
++ }
++ print "ok ", ++$i, " [perl #49472]\n";
++}
++
+ ##########################################
+ # What follows are UTF-8 specific tests. #
+ # Add generic tests before this point. #
+--- perl-5.10.0/toke.c.orig 2007-12-18 11:47:08.000000000 +0100
++++ perl-5.10.0/toke.c 2008-12-13 14:24:47.805309079 +0100
+@@ -692,6 +692,7 @@
+ #else
+ parser->nexttoke = 0;
+ #endif
++ parser->error_count = oparser ? oparser->error_count : 0;
+ parser->copline = NOLINE;
+ parser->lex_state = LEX_NORMAL;
+ parser->expect = XSTATE;
================================================================
More information about the pld-cvs-commit
mailing list