diff options
| author | Yves Orton <demerphq@gmail.com> | 2007-03-21 11:39:24 +0100 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-03-22 09:01:37 +0000 |
| commit | 28d8d7f41ab202dd5f7611033d27ecad44cadd60 (patch) | |
| tree | 330e1fcd2c3e0573355f25c14fc04ce0e64c608c /ext/Encode | |
| parent | da140a4068f95cc339e9327c1579a94f9f241dd8 (diff) | |
| download | perl-28d8d7f41ab202dd5f7611033d27ecad44cadd60.tar.gz | |
Resolve PL_curpm issues with (??{}) and fix corruption of match results when pattern is a qr.
Message-ID: <9b18b3110703210239x540f5ad9mdb41c2ea6229ac31@mail.gmail.com>
plus two follow-up patches (minor tweaks)
p4raw-id: //depot/perl@30678
Diffstat (limited to 'ext/Encode')
| -rw-r--r-- | ext/Encode/t/Aliases.t | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/ext/Encode/t/Aliases.t b/ext/Encode/t/Aliases.t index ff86ed1d0a..9c7094460a 100644 --- a/ext/Encode/t/Aliases.t +++ b/ext/Encode/t/Aliases.t @@ -122,6 +122,7 @@ use Test::More tests => (scalar keys %a2c) * 4; print "# alias test; \$ON_EBCDIC == $ON_EBCDIC\n"; foreach my $a (keys %a2c){ + print "# $a => $a2c{$a}\n"; my $e = Encode::find_encoding($a); is((defined($e) and $e->name), $a2c{$a},$a) or warn "alias was $a";; |