[PATCH] assertions
[p5sagit/p5-mst-13.2.git] / lib / assertions / activate.pm
index f3abd1e..0ce73f3 100644 (file)
@@ -8,7 +8,7 @@ our $VERSION = '0.01';
 sub import {
     shift;
     @_='.*' unless @_;
-    push @{^ASSERTING}, ( map { qr/^$_$/ } @_) ;
+    push @{^ASSERTING}, ( map { qr/^(?:$_)$/ } @_) ;
 }
 
 1;