diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-06-25 19:25:47 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-06-25 19:25:47 +0000 |
| commit | 0c58d367e297133798f6e191e83d3087e2617588 (patch) | |
| tree | 84781f22fd6028b3549edec1f17110ccfcc84d8c /t | |
| parent | 23bb1b96cfae0dc23679ea6dd44cf0deadeb9fbf (diff) | |
| download | perl-0c58d367e297133798f6e191e83d3087e2617588.tar.gz | |
Fix [perl #21742] :
require() should always be called in scalar context,
even when it's the last statement in an eval("").
p4raw-id: //depot/perl@19851
Diffstat (limited to 't')
| -rwxr-xr-x | t/comp/require.t | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/t/comp/require.t b/t/comp/require.t index 8896bb3c6d..7d1b24010c 100755 --- a/t/comp/require.t +++ b/t/comp/require.t @@ -11,7 +11,7 @@ $i = 1; my $Is_EBCDIC = (ord('A') == 193) ? 1 : 0; my $Is_UTF8 = (${^OPEN} || "") =~ /:utf8/; -my $total_tests = 29; +my $total_tests = 30; if ($Is_EBCDIC || $Is_UTF8) { $total_tests = 26; } print "1..$total_tests\n"; @@ -134,8 +134,7 @@ print $x; write_file('bleah.pm', <<'**BLEAH**' print "not " if !defined wantarray || wantarray ne ''; -my $TODO = $i == 23 ? " # TODO bug #21742" : ""; -print "ok $i - require() context$TODO\n"; +print "ok $i - require() context\n"; 1; **BLEAH** ); @@ -143,6 +142,7 @@ print "ok $i - require() context$TODO\n"; $foo = eval q{require bleah}; delete $INC{"bleah.pm"}; ++$::i; @foo = eval q{require bleah}; delete $INC{"bleah.pm"}; ++$::i; eval q{require bleah}; delete $INC{"bleah.pm"}; ++$::i; + eval q{$_=$_+2;require bleah}; delete $INC{"bleah.pm"}; ++$::i; $foo = eval {require bleah}; delete $INC{"bleah.pm"}; ++$::i; @foo = eval {require bleah}; delete $INC{"bleah.pm"}; ++$::i; eval {require bleah}; |