This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
In t/op/mydef.t, add missing C<eval> to a test.
authorNicholas Clark <nick@ccl4.org>
Sun, 13 Mar 2011 10:39:15 +0000 (10:39 +0000)
committerNicholas Clark <nick@ccl4.org>
Sun, 13 Mar 2011 10:43:20 +0000 (10:43 +0000)
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.

t/op/mydef.t

index ca77c27..123767c 100644 (file)
@@ -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' );
 }
 
 {