diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2008-05-20 12:14:28 +0200 |
|---|---|---|
| committer | H.Merijn Brand <h.m.brand@xs4all.nl> | 2008-05-20 09:29:33 +0000 |
| commit | ace56ae50476eeb045e2f78e4b9550922f258fde (patch) | |
| tree | 2a500b635d262cee1e27c65b98526b23259cf15a /t/lib/strict | |
| parent | 984f9f66477bc722578262ae8520584e44e881af (diff) | |
| download | perl-ace56ae50476eeb045e2f78e4b9550922f258fde.tar.gz | |
Re: [PATCH: TODO Tests] Re: [perl #53806] No complain about bareword
From: "Rafael Garcia-Suarez" <rgarciasuarez@gmail.com>
Message-ID: <b77c1dce0805200114o5df69d8br9a02de5a508c3462@mail.gmail.com>
p4raw-id: //depot/perl@33876
Diffstat (limited to 't/lib/strict')
| -rw-r--r-- | t/lib/strict/subs | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/t/lib/strict/subs b/t/lib/strict/subs index 20a8afa80e..2c9aa87372 100644 --- a/t/lib/strict/subs +++ b/t/lib/strict/subs @@ -393,3 +393,18 @@ my @a;my $x=$a[FOO]; EXPECT Bareword "FOO" not allowed while "strict subs" in use at - line 2. Execution of - aborted due to compilation errors. +######## +# TODO: [perl #53806] No complain about bareword +use strict 'subs'; +print FOO . "\n"; +EXPECT +Bareword "FOO" not allowed while "strict subs" in use at - line 3. +Execution of - aborted due to compilation errors. +######## +# TODO: [perl #53806] No complain about bareword +use strict 'subs'; +$ENV{PATH} = ""; +system(FOO . "\n"); +EXPECT +Bareword "FOO" not allowed while "strict subs" in use at - line 4. +Execution of - aborted due to compilation errors. |