another mro patch

[p5sagit/p5-mst-13.2.git] / lib / assertions / activate.pm

diff --git a/lib/assertions/activate.pm b/lib/assertions/activate.pm
index ba1f5de..558443d 100644 (file)
--- a/lib/assertions/activate.pm
+++ b/lib/assertions/activate.pm
@@ -5,7 +5,7 @@ our $VERSION = '0.02';
 sub import {
     shift;
     @_ = '.*' unless @_;
-    push @{^ASSERTING}, map { ref $_ eq 'Regexp' ? $_ : qr/^(?:$_)\z/ } @_;
+    push @{^ASSERTING}, map { ref $_ ? $_ : qr/^(?:$_)\z/ } @_;
 }
 
 1;
@@ -33,7 +33,7 @@ Though it can also be explicetly used:
 
 The import parameters are a list of strings or of regular expressions. The
 assertion tags that match those regexps are enabled. If no parameter is
-given, all assertions are activated.
+given, all assertions are activated.  References are activated as-is.
 
 =head1 SEE ALSO