diff options
| author | Nicholas Clark <nick@ccl4.org> | 2009-10-13 13:44:50 +0100 |
|---|---|---|
| committer | Jesse Vincent <jesse@bestpractical.com> | 2009-10-16 12:30:14 -0400 |
| commit | f3365a56c42f2f31eed84ad55632f9786ee09044 (patch) | |
| tree | 6aec3591d4e3680e9cd20aacb3205db6047ae052 /t/base | |
| parent | f560054f038f9369201fb083944780fa1a0ad949 (diff) | |
| download | perl-f3365a56c42f2f31eed84ad55632f9786ee09044.tar.gz | |
Move the test for the deprecated feature <<; out of t/base/lext.t
Tests in base can't utilise pragmata, specifically no warnings 'deprecated';
Diffstat (limited to 't/base')
| -rw-r--r-- | t/base/lex.t | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/t/base/lex.t b/t/base/lex.t index 8cadf8505e..a5d87f6374 100644 --- a/t/base/lex.t +++ b/t/base/lex.t @@ -69,10 +69,11 @@ print qq print q<ok 17 >; -print <<; # Yow! -ok 18 - -# previous line intentionally left blank. +print "ok 18 - was the test for the deprecated use of bare << to mean <<\"\"\n"; +#print <<; # Yow! +#ok 18 +# +## previous line intentionally left blank. print <<E1 eq "foo\n\n" ? "ok 19\n" : "not ok 19\n"; @{[ <<E2 ]} |