From 8fa7688f7865696bdfa78bc12d4ffb78bd1d6103 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Salvador=20Fandi=C3=B1o?= Date: Fri, 21 Feb 2003 17:26:16 +0000 Subject: [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 --- lib/assertions/activate.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'lib/assertions') 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; -- cgit v1.2.1