From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Sun, 12 Nov 2006 13:11:07 +0000 (+0000)
Subject: Reinstate warning 'Useless use of "re" pragma'
X-Git-Tag: perl-5.9.5~1732
X-Git-Url: https://perl5.git.perl.org/perl5.git/commitdiff_plain/b8f647c343705be9b25e126b223927e9e99aa8b3?hp=f9e5c490b70ce127fd0c5c82d8dd9b3d790d518e

Reinstate warning 'Useless use of "re" pragma'

p4raw-id: //depot/perl@29245
---

diff --git a/ext/re/re.pm b/ext/re/re.pm
index ac71f0a..dfdfe86 100644
--- a/ext/re/re.pm
+++ b/ext/re/re.pm
@@ -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];