diff options
| -rw-r--r-- | lib/overload.t | 2 | ||||
| -rw-r--r-- | opcode.h | 2 | ||||
| -rwxr-xr-x | opcode.pl | 2 | ||||
| -rwxr-xr-x | t/op/flip.t | 2 |
4 files changed, 4 insertions, 4 deletions
diff --git a/lib/overload.t b/lib/overload.t index f98f0c46c0..d07506261d 100644 --- a/lib/overload.t +++ b/lib/overload.t @@ -729,7 +729,7 @@ else { $iter = iterator->new(5); test scalar <${iter}>, '5'; # 176 $acc = ''; - $acc .= " $out" while $out = <${iter}>; + $acc .= " $out" while $out = <$iter>; test $acc, ' 4 3 2 1 0'; # 177 } { @@ -1478,7 +1478,7 @@ EXT U32 PL_opargs[] = { 0x00122804, /* bless */ 0x00001608, /* backtick */ 0x00012808, /* glob */ - 0x00001608, /* readline */ + 0x0001d608, /* readline */ 0x00001608, /* rcatline */ 0x00002204, /* regcmaybe */ 0x00002204, /* regcreset */ @@ -444,7 +444,7 @@ bless bless ck_fun s@ S S? backtick quoted execution (``, qx) ck_open t% # glob defaults its first arg to $_ glob glob ck_glob t@ S? -readline <HANDLE> ck_fun t% F +readline <HANDLE> ck_null t% F? rcatline append I/O operator ck_null t% # Bindable operators. diff --git a/t/op/flip.t b/t/op/flip.t index e2d09138bf..99b22eff94 100755 --- a/t/op/flip.t +++ b/t/op/flip.t @@ -32,5 +32,5 @@ if (($x...$x) eq "1") {print "ok 9\n";} else {print "not ok 9\n";} # coredump reported in bug 20001018.008 readline(UNKNOWN); $. = 1; - print "ok 10\n" if 1 .. 10; + print "ok 10\n" unless 1 .. 10; } |