diff options
| author | Salvador Fandiño <sfandino@yahoo.com> | 2003-02-21 17:26:16 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-03-04 20:49:59 +0000 |
| commit | 8fa7688f7865696bdfa78bc12d4ffb78bd1d6103 (patch) | |
| tree | 9737caf004c7fafa8466b02223aa35b52064734f /lib/assertions | |
| parent | 9bf4a77902309e820b008865d9ebf6110e4a6cac (diff) | |
| download | perl-8fa7688f7865696bdfa78bc12d4ffb78bd1d6103.tar.gz | |
[PATCH] assertions
Message-ID: <3E566138.4090709@yahoo.com>
and the complement : (with added comments)
Subject: [PATCH] bug in ext/B/t/deparse.t
Message-ID: <3E563E16.7060303@yahoo.com>
plus perldiag.pod patch for the new warning
(previous change was, once again, empty)
p4raw-id: //depot/perl@18828
Diffstat (limited to 'lib/assertions')
| -rw-r--r-- | lib/assertions/activate.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/assertions/activate.pm b/lib/assertions/activate.pm index f3abd1e380..0ce73f3316 100644 --- a/lib/assertions/activate.pm +++ b/lib/assertions/activate.pm @@ -8,7 +8,7 @@ our $VERSION = '0.01'; sub import { shift; @_='.*' unless @_; - push @{^ASSERTING}, ( map { qr/^$_$/ } @_) ; + push @{^ASSERTING}, ( map { qr/^(?:$_)$/ } @_) ; } 1; |