diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2012-06-24 13:22:59 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2012-06-24 13:22:59 -0700 |
| commit | 47b03dba23b5976831adc43f087be57eabb47aa3 (patch) | |
| tree | 49e06d9e81f5049c78dc6bae7ad7a155e45862d7 /t/porting/diag.t | |
| parent | 18da52524b416719b1b9f89eb6f23e9f2631fa8f (diff) | |
| download | perl-47b03dba23b5976831adc43f087be57eabb47aa3.tar.gz | |
Unbreak diag.t
In speeding in up in commit de53a0eaa2de, I actually broke it such
that it only looked for DIE.
Diffstat (limited to 't/porting/diag.t')
| -rw-r--r-- | t/porting/diag.t | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/t/porting/diag.t b/t/porting/diag.t index 5966bd2a7c..8e3cbcb953 100644 --- a/t/porting/diag.t +++ b/t/porting/diag.t @@ -50,7 +50,7 @@ while (<$func_fh>) { close $func_fh; my $function_re = join '|', @functions; -my $source_msg_re = '(?<routine>\bDIE\b|$function_re)'; +my $source_msg_re = "(?<routine>\\bDIE\\b|$function_re)"; my $text_re = '"(?<text>(?:\\\\"|[^"]|"\s*[A-Z_]+\s*")*)"'; my $source_msg_call_re = qr/$source_msg_re(?:_nocontext)? \s* \(aTHX_ \s* @@ -392,6 +392,7 @@ Debug leaking scalars child failed%s with errno %d: %s Don't know how to handle magic of type \%o -Dp not implemented on this platform Error reading "%s": %s +Eval-group in insecure regular expression Filehandle opened only for %sput Filehandle %s opened only for %sput Filehandle STD%s reopened as %s only for input @@ -405,6 +406,7 @@ Goto undefined subroutine &%s Illegal character %sin prototype for %s : %s internal %<num>p might conflict with future printf extensions invalid control request: '\%o' +Invalid negative number (%s) in chr Invalid range "%c-%c" in transliteration operator Invalid separator character %c%c%c in PerlIO layer specification %s Invalid TOKEN object ignored @@ -420,6 +422,7 @@ More than one argument to open More than one argument to open(,':%s') mprotect for %p %u failed with %d mprotect RW for %p %u failed with %d +No such class field "%s" Not an XSUB reference Operator or semicolon missing before %c%s Perl %s required--this is only %s, stopped |