$DiePattern
$WarnPattern
$BugId
- $PatchId
$running_as_thread
$IS_ASCII
$IS_EBCDIC
}
sub safe_globals {
- defined($_) and s/#/\\#/g for $BugId, $PatchId, $TODO;
+ defined($_) and s/#/\\#/g for $BugId, $TODO;
}
sub _ok {
safe_globals();
$mess = pretty ($mess // $Message);
$mess .= "; Bug $BugId" if defined $BugId;
- $mess .= "; Patch $PatchId" if defined $PatchId;
$mess .= " # TODO $TODO" if defined $TODO;
my $line_nr = (caller(1)) [2];
{
use charnames ':full';
- local $PatchId = "13843";
local $Message = "GREEK CAPITAL LETTER SIGMA vs " .
"COMBINING GREEK PERISPOMENI";
my $SIGMA = "\N{GREEK CAPITAL LETTER SIGMA}";
my $char = "\N{COMBINING GREEK PERISPOMENI}";
- may_not_warn sub {ok "_:$char:_" !~ m/_:$SIGMA:_/i};
+ may_not_warn sub {ok "_:$char:_" !~ m/_:$SIGMA:_/i},
+ 'Did not warn [change a5961de5f4215b5c]';
}
{
local $BugId = "20020124.005";
- local $PatchId = "14795";
- local $Message = "s///eg";
+ local $Message = "s///eg [change 13f46d054db22cf4]";
for my $char ("a", "\x{df}", "\x{100}") {
my $x = "$char b $char";
}
{
- local $PatchId = '18179';
my $s = "\x{100}" x 5;
my $ok = $s =~ /(\x{100}{4})/;
my ($ord, $len) = (ord $1, length $1);
- ok $ok && $ord == 0x100 && $len == 4, "No panic: end_shift";
+ ok $ok && $ord == 0x100 && $len == 4, "No panic: end_shift [change 0e933229fa758625]";
}
{
- local $PatchId = '26410';
{
package wooosh;
sub gloople {"!"}
}
my $aeek = bless {} => 'wooosh';
eval_ok sub {$aeek -> gloople () =~ /(.)/g},
- "//g match against return value of sub";
+ "//g match against return value of sub [change e26a497577f3ce7b]";
sub gloople {"!"}
eval_ok sub {gloople () =~ /(.)/g},
- "26410 didn't affect sub calls for some reason";
+ "change e26a497577f3ce7b didn't affect sub calls for some reason";
}