diff options
| author | Nicholas Clark <nick@ccl4.org> | 2011-03-13 10:39:15 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2011-03-13 10:43:20 +0000 |
| commit | e205853886e506c9c43b97ba4ead8146bda01a70 (patch) | |
| tree | 2e55e176292f024ec5747d9301f9496836db72d4 /t/op/mydef.t | |
| parent | acdea6f0600816151724f1e3525a3e41433e2646 (diff) | |
| download | perl-e205853886e506c9c43b97ba4ead8146bda01a70.tar.gz | |
In t/op/mydef.t, add missing C<eval> to a test.
As the test is for 'ne', it passes without the eval. However, the test's
description and surrounding code make it clear that it is a test for the
results of eval.
Diffstat (limited to 't/op/mydef.t')
| -rw-r--r-- | t/op/mydef.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/op/mydef.t b/t/op/mydef.t index ca77c27032..123767cc35 100644 --- a/t/op/mydef.t +++ b/t/op/mydef.t @@ -196,7 +196,7 @@ my $file = tempfile(); ok( eval q/$fqdb::_/ eq 'fqdb', 'fully qualified, evaled $_ is not in main' ); package fqdb; ::ok( $_ ne 'fqdb', 'unqualified $_ is in main' ); - ::ok( q/$_/ ne 'fqdb', 'unqualified, evaled $_ is in main' ); + ::ok( eval q/$_/ ne 'fqdb', 'unqualified, evaled $_ is in main' ); } { |