Handle PERLIO= and document a bit.

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

diff --git a/lib/assertions/activate.pm b/lib/assertions/activate.pm
index d019b77..0ce73f3 100644 (file)
--- a/lib/assertions/activate.pm
+++ b/lib/assertions/activate.pm
@@ -7,7 +7,8 @@ our $VERSION = '0.01';
 
 sub import {
     shift;
-    push @{^ASSERTING}, ( map { qr/^$_$/ } @_) ;
+    @_='.*' unless @_;
+    push @{^ASSERTING}, ( map { qr/^(?:$_)$/ } @_) ;
 }
 
 1;
@@ -40,11 +41,11 @@ L<assertions>
 
 =head1 AUTHOR
 
-Salvador Fandiño, E<lt>sfandino@yahoo.comE<gt>
+Salvador FandiE<ntilde>o, E<lt>sfandino@yahoo.comE<gt>
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright 2002 by Salvador Fandiño
+Copyright 2002 by Salvador FandiE<ntilde>o
 
 This library is free software; you can redistribute it and/or modify
 it under the same terms as Perl itself.