It’s wrong.
$ ./perl -Ilib -le 'use re; print re::regmust(qr/foo/)'
Useless use of "re" pragma at -e line 1.
foo
Useless, eh? OK, then:
$ ./perl -Ilib -le 'print re::regmust(qr/foo/)'
Undefined subroutine &re::regmust called at -e line 1.
sub bits {
my $on = shift;
my $bits = 0;
- unless (@_) {
- require Carp;
- Carp::carp("Useless use of \"re\" pragma");
- }
ARG:
foreach my $idx (0..$#_){
my $s=$_[$idx];
use strict;
-use Test::More tests => 13;
+use Test::More tests => 14;
require_ok( 're' );
# setcolor
sub Tputs {
return $_[1];
}
+
+package main;
+
+{
+ my $w;
+ local $SIG{__WARN__} = sub { warn shift; ++$w };
+ re->import();
+ is $w, undef, 'no warning for "use re;" (which is not useless)';
+}