diff options
| author | Joshua ben Jore <jjore@cpan.org> | 2006-12-05 05:18:21 -0800 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-12-06 12:51:34 +0000 |
| commit | fd9f6265d8baae6f5a03aa84840f587026ca6455 (patch) | |
| tree | 222837458de9e743a222363faba2a3b9d7fa2d46 /t/lib/mypragma.t | |
| parent | 9f33bf0020b0ce9c5f5b473667892a0984ee21e5 (diff) | |
| download | perl-fd9f6265d8baae6f5a03aa84840f587026ca6455.tar.gz | |
User pragmas now accessible from B
From: "Joshua ben Jore" <twists@gmail.com>
Message-ID: <dc5c751d0612051318n2e2f08bfh185fab6323a980b@mail.gmail.com>
p4raw-id: //depot/perl@29475
Diffstat (limited to 't/lib/mypragma.t')
| -rw-r--r-- | t/lib/mypragma.t | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/t/lib/mypragma.t b/t/lib/mypragma.t index bd44cad9eb..48e9865384 100644 --- a/t/lib/mypragma.t +++ b/t/lib/mypragma.t @@ -22,8 +22,8 @@ is(mypragma::in_effect(), undef, "pragma not in effect yet"); or die $@; use mypragma; - is(mypragma::in_effect(), 1, "pragma is in effect within this block"); - eval qq{is(mypragma::in_effect(), 1, + is(mypragma::in_effect(), 42, "pragma is in effect within this block"); + eval qq{is(mypragma::in_effect(), 42, "pragma is in effect within this eval"); 1} or die $@; { @@ -33,8 +33,8 @@ is(mypragma::in_effect(), undef, "pragma not in effect yet"); or die $@; } - is(mypragma::in_effect(), 1, "pragma is in effect within this block"); - eval qq{is(mypragma::in_effect(), 1, + is(mypragma::in_effect(), 42, "pragma is in effect within this block"); + eval qq{is(mypragma::in_effect(), 42, "pragma is in effect within this eval"); 1} or die $@; } is(mypragma::in_effect(), undef, "pragma no longer in effect"); |