Change 18840: cleaning up tests of the 'eval { decl. } <=> runtime decl.' assumption

[Rafael Garcia-Suarez]

Change 18840 by [EMAIL PROTECTED] on 2003/03/06 20:45:08

        Subject: cleaning up tests of the 'eval { decl. } <=> runtime decl.' assumption
        From: Enache Adrian <[EMAIL PROTECTED]>
        Date: Wed, 5 Mar 2003 12:06:20 +0200
        Message-ID: <[EMAIL PROTECTED]>

Affected files ...

... //depot/perl/ext/POSIX/t/sigaction.t#5 edit
... //depot/perl/ext/POSIX/t/waitpid.t#4 edit
... //depot/perl/t/op/method.t#24 edit
... //depot/perl/t/op/sub_lval.t#7 edit
... //depot/perl/t/op/ver.t#29 edit
... //depot/perl/t/run/fresh_perl.t#22 edit

Differences ...

==== //depot/perl/ext/POSIX/t/sigaction.t#5 (text) ====
Index: perl/ext/POSIX/t/sigaction.t
--- perl/ext/POSIX/t/sigaction.t#4~16882~       Thu May 30 06:29:13 2002
+++ perl/ext/POSIX/t/sigaction.t        Thu Mar  6 12:45:08 2003
@@ -8,7 +8,7 @@
 BEGIN{
        # Don't do anything if POSIX is missing, or sigaction missing.
        use Config;
-       eval { use POSIX; };
+       eval 'use POSIX';
        if($@ || $^O eq 'MSWin32' || $^O eq 'NetWare' || $^O eq 'dos' ||
           $^O eq 'MacOS' || ($^O eq 'VMS' && !$Config{'d_sigaction'})) {
                print "1..0\n";

==== //depot/perl/ext/POSIX/t/waitpid.t#4 (text) ====
Index: perl/ext/POSIX/t/waitpid.t
--- perl/ext/POSIX/t/waitpid.t#3~16829~ Tue May 28 05:26:34 2002
+++ perl/ext/POSIX/t/waitpid.t  Thu Mar  6 12:45:08 2003
@@ -9,12 +9,12 @@
        print "1..0 # Skip: no fork\n";
        exit 0;
     }
-    eval { use POSIX qw(sys_wait_h) };
+    eval 'use POSIX qw(sys_wait_h)';
     if ($@) {
        print "1..0 # Skip: no POSIX sys_wait_h\n";
        exit 0;
     }
-    eval { use Time::HiRes qw(time) };
+    eval 'use Time::HiRes qw(time)';
     if ($@) {
        print "1..0 # Skip: no Time::HiRes\n";
        exit 0;

==== //depot/perl/t/op/method.t#24 (xtext) ====
Index: perl/t/op/method.t
--- perl/t/op/method.t#23~18159~        Tue Nov 19 03:48:30 2002
+++ perl/t/op/method.t  Thu Mar  6 12:45:08 2003
@@ -231,7 +231,7 @@
 # This is actually testing parsing of indirect objects and undefined subs
 #   print foo("bar") where foo does not exist is not an indirect object.
 #   print foo "bar"  where foo does not exist is an indirect object.
-eval { sub AUTOLOAD { "ok ", shift, "\n"; } };
+eval 'sub AUTOLOAD { "ok ", shift, "\n"; }';
 ok(1);
 
 # Bug ID 20010902.002

==== //depot/perl/t/op/sub_lval.t#7 (xtext) ====
Index: perl/t/op/sub_lval.t
--- perl/t/op/sub_lval.t#6~18118~       Thu Nov  7 03:33:38 2002
+++ perl/t/op/sub_lval.t        Thu Mar  6 12:45:08 2003
@@ -423,10 +423,7 @@
 print "# '$nnewvar'.\nnot " unless $nnewvar eq '8';
 print "ok 46\n";
 
-# This must happen at run time
-eval {
-    sub AUTOLOAD : lvalue { $newvar };
-};
+eval 'sub AUTOLOAD : lvalue { $newvar }';
 foobar() = 12;
 print "# '$newvar'.\nnot " unless $newvar eq "12";
 print "ok 47\n";

==== //depot/perl/t/op/ver.t#29 (xtext) ====
Index: perl/t/op/ver.t
--- perl/t/op/ver.t#28~17747~   Wed Aug 21 17:11:34 2002
+++ perl/t/op/ver.t     Thu Mar  6 12:45:08 2003
@@ -13,7 +13,7 @@
 require "test.pl";
 plan( tests => 50 );
 
-eval { use v5.5.640; };
+eval 'use v5.5.640';
 is( $@, '', "use v5.5.640; $@");
 
 require_ok('v5.5.640');
@@ -52,7 +52,7 @@
 
 #
 # now do the same without the "v"
-eval { use 5.5.640; };
+eval 'use 5.5.640';
 is( $@, '', "use 5.5.640; $@");
 
 require_ok('5.5.640');

==== //depot/perl/t/run/fresh_perl.t#22 (text) ====
Index: perl/t/run/fresh_perl.t
--- perl/t/run/fresh_perl.t#21~18662~   Wed Feb  5 11:40:38 2003
+++ perl/t/run/fresh_perl.t     Thu Mar  6 12:45:08 2003
@@ -89,7 +89,7 @@
 EXPECT
 25
 ########
-eval {sub bar {print "In bar";}}
+eval 'sub bar {print "In bar"}';
 ########
 system './perl -ne "print if eof" /dev/null' unless $^O eq 'MacOS'
 ########
End of Patch.