diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-11-14 14:19:46 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-11-14 14:19:46 +0000 |
| commit | 48de12d940c558762a4819fcf31deba3b8cb6fea (patch) | |
| tree | b08321602800de6c5ee48a8ad6292882914f289d /t | |
| parent | dbb1b5d432956ad6dfbabf1a0c1acc561bff49f0 (diff) | |
| download | perl-48de12d940c558762a4819fcf31deba3b8cb6fea.tar.gz | |
Fix bug #39037: rcatline doesn't stringify references
p4raw-id: //depot/perl@29273
Diffstat (limited to 't')
| -rw-r--r-- | t/op/readline.t | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/t/op/readline.t b/t/op/readline.t index 6dfe695bb5..ffde6f13bf 100644 --- a/t/op/readline.t +++ b/t/op/readline.t @@ -6,7 +6,7 @@ BEGIN { require './test.pl'; } -plan tests => 14; +plan tests => 15; eval { for (\2) { $_ = <FH> } }; like($@, 'Modification of a read-only value attempted', '[perl #19566]'); @@ -83,8 +83,13 @@ fresh_perl_is('BEGIN{<>}', '', { switches => ['-w'], stdin => '', stderr => 1 }, 'No ARGVOUT used only once warning'); +my $obj = bless []; +$obj .= <DATA>; +like($obj, qr/main=ARRAY.*world/, 'rcatline and refs'); + __DATA__ moo moo rules rules +world |