diff options
| author | Nicholas Clark <nick@ccl4.org> | 2006-04-29 23:33:36 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2006-04-29 23:33:36 +0000 |
| commit | c9cb0f4189a96c284198e261ba3e6a7df9d31f55 (patch) | |
| tree | c265fd3eba0d69fc5aa6522292dd92fc8ac7b6f4 /t/lib/warnings/9uninit | |
| parent | 4d70b921e1187677f4cf1096318a548c16b9b695 (diff) | |
| download | perl-c9cb0f4189a96c284198e261ba3e6a7df9d31f55.tar.gz | |
syswrite couldn't correctly handle surprises from UTF-8 overloading.
As part of fixing this, syswrite now tries to take advantage of the
UTF-8 cache logic for lengths and offsets on regular scalars.
p4raw-id: //depot/perl@28019
Diffstat (limited to 't/lib/warnings/9uninit')
| -rw-r--r-- | t/lib/warnings/9uninit | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/t/lib/warnings/9uninit b/t/lib/warnings/9uninit index 07fffa87eb..575161d2a1 100644 --- a/t/lib/warnings/9uninit +++ b/t/lib/warnings/9uninit @@ -1162,7 +1162,7 @@ our ($g1); eval { my $x; seek $x,$m1, $g1 }; eval { my $x; sysseek $x,$m1, $g1 }; -eval { syswrite $m1, $g1 }; +eval { syswrite $m1, $g1 }; # logic changed - now won't try $g1 if $m1 is bad # eval { syswrite STDERR, $m1 }; # XXX under utf8, can give # eval { syswrite STDERR, $m1, $g1 }; # XXX different warnings # eval { syswrite STDERR, $m1, $g1, $m2 }; @@ -1176,7 +1176,6 @@ Use of uninitialized value $x in ref-to-glob cast at - line 6. Use of uninitialized value $g1 in sysseek at - line 6. Use of uninitialized value $m1 in sysseek at - line 6. Use of uninitialized value $m1 in ref-to-glob cast at - line 7. -Use of uninitialized value $g1 in syswrite at - line 7. Use of uninitialized value $m2 in socket at - line 11. Use of uninitialized value $g1 in socket at - line 11. Use of uninitialized value $m1 in socket at - line 11. |