}
require './test.pl';
-plan( tests => 122 );
+plan( tests => 126 );
$x = 'foo';
$_ = "x";
substr($pv2,0,1) = "\x{100}";
is($pv1, $pv2);
-{
- # Gregor Chrupala <gregor.chrupala@star-group.net>
- use utf8;
- $a = 'España';
- $a =~ s/ñ/ñ/;
- like($a, qr/ñ/, "use utf8 RHS");
-}
-
-{
- use utf8;
- $a = 'España España';
- $a =~ s/ñ/ñ/;
- like($a, qr/ñ/, "use utf8 LHS");
-}
-
-{
- use utf8;
- $a = 'España';
- $a =~ s/ñ/ñ/;
- like($a, qr/ñ/, "use utf8 LHS and RHS");
+SKIP: {
+ skip("EBCDIC", 3) if ord("A") == 193;
+
+ {
+ # Gregor Chrupala <gregor.chrupala@star-group.net>
+ use utf8;
+ $a = 'España';
+ $a =~ s/ñ/ñ/;
+ like($a, qr/ñ/, "use utf8 RHS");
+ }
+
+ {
+ use utf8;
+ $a = 'España España';
+ $a =~ s/ñ/ñ/;
+ like($a, qr/ñ/, "use utf8 LHS");
+ }
+
+ {
+ use utf8;
+ $a = 'España';
+ $a =~ s/ñ/ñ/;
+ like($a, qr/ñ/, "use utf8 LHS and RHS");
+ }
}
{
is($b, "$na--$na--$nb", "s///: replace long non-utf8 into non-utf8 (utf8 pattern)");
}
+$_ = 'aaaa';
+$r = 'x';
+$s = s/a(?{})/$r/g;
+is("<$_> <$s>", "<xxxx> <4>", "[perl #7806]");
+
+$_ = 'aaaa';
+$s = s/a(?{})//g;
+is("<$_> <$s>", "<> <4>", "[perl #7806]");
+
+# [perl #19048] Coredump in silly replacement
+{
+ local $^W = 0;
+ $_="abcdef\n";
+ s!.!!eg;
+ is($_, "\n", "[perl #19048]");
+}
+
+# [perl #17757] interaction between saw_ampersand and study
+{
+ my $f = eval q{ $& };
+ $f = "xx";
+ study $f;
+ $f =~ s/x/y/g;
+ is($f, "yy", "[perl #17757]");
+}