diff options
| author | Gisle Aas <gisle@aas.no> | 2006-01-27 06:46:00 -0800 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-11-02 11:14:42 +0000 |
| commit | cfc4a7da389202132834a0ef4ed2d46dd167c176 (patch) | |
| tree | ae77ff805a66e190133b5ffc15238751f0c72ca1 /t | |
| parent | f9c6ae86dc1f6723c795186e5f64836b2e6c2f01 (diff) | |
| download | perl-cfc4a7da389202132834a0ef4ed2d46dd167c176.tar.gz | |
Re: $, and say
Message-ID: <lrek2t1e8n.fsf@caliper.activestate.com>
with tweaks so "say;" continues to default to $_
plus a regression test
p4raw-id: //depot/perl@29187
Diffstat (limited to 't')
| -rw-r--r-- | t/io/say.t | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/t/io/say.t b/t/io/say.t index 62cec80237..1da7a18d8f 100644 --- a/t/io/say.t +++ b/t/io/say.t @@ -16,7 +16,7 @@ die $@ if $@ and !$ENV{PERL_CORE_MINITEST}; use feature "say"; -say "1..11"; +say "1..12"; my $foo = 'STDOUT'; say $foo "ok 1"; @@ -47,3 +47,9 @@ say; $_ = "ok 11"; say STDOUT; + +{ + # test that $, doesn't show up before the trailing \n + local $, = "\nnot ok 13"; # how to fool Test::Harness + say "ok 12"; +} |