diff options
| author | Nicholas Clark <nick@ccl4.org> | 2010-09-24 11:46:41 +0100 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2010-09-24 11:48:51 +0100 |
| commit | 3d7a9343ce805daaa050171aecb0ab4f37fed18d (patch) | |
| tree | 2c1d85cf2322479ecbeae64339ef052603ba25a7 /ext/B/t | |
| parent | bf70f4101a9bd4064c4bc7f03a677f4227ad79a4 (diff) | |
| download | perl-3d7a9343ce805daaa050171aecb0ab4f37fed18d.tar.gz | |
Add a warning to test.pl if quotes are used in one-liners.
Fix all the tests that were using quotes, and (by implication) working
because barewords are treated as strings, and one-liners aren't run under
strict.
Diffstat (limited to 'ext/B/t')
| -rw-r--r-- | ext/B/t/concise.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/B/t/concise.t b/ext/B/t/concise.t index 3eb22ce8dd..2b67222af0 100644 --- a/ext/B/t/concise.t +++ b/ext/B/t/concise.t @@ -413,7 +413,7 @@ $out = runperl ( switches => ["-MO=Concise,-stash=Data::Dumper,-src,-exec"], like($out, qr/FUNC: \*Data::Dumper::format_refaddr/, "stash rendering loads package as needed"); -my $prog = q{package FOO; sub bar { print "bar" } package main; FOO::bar(); }; +my $prog = q{package FOO; sub bar { print q{bar} } package main; FOO::bar(); }; # this would fail if %INC used for -stash test $out = runperl ( switches => ["-MO=Concise,-src,-stash=FOO,-main"], |