This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Reinstate warning 'Useless use of "re" pragma'
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Sun, 12 Nov 2006 13:11:07 +0000 (13:11 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Sun, 12 Nov 2006 13:11:07 +0000 (13:11 +0000)
p4raw-id: //depot/perl@29245

ext/re/re.pm

index ac71f0a..dfdfe86 100644 (file)
@@ -1,6 +1,6 @@
 package re;
 
-our $VERSION = 0.06_02;
+our $VERSION = 0.06_03;
 
 =head1 NAME
 
@@ -297,7 +297,8 @@ sub bits {
     my $on = shift;
     my $bits = 0;
     unless (@_) {
-       return;
+       require Carp;
+       Carp::carp("Useless use of \"re\" pragma");
     }
     foreach my $idx (0..$#_){
         my $s=$_[$idx];