This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
minor re.pm cleanup
authorM. J. T. Guy <mjtg@cus.cam.ac.uk>
Wed, 15 Jul 1998 12:41:14 +0000 (13:41 +0100)
committerGurusamy Sarathy <gsar@cpan.org>
Sun, 19 Jul 1998 06:23:10 +0000 (06:23 +0000)
Message-Id: <E0ywPvu-0003V7-00@ursa.cus.cam.ac.uk>
Subject: Re: [PATCH 5.004_74]Don't use tainted REs in Basename.pm when building perl

p4raw-id: //depot/perl@1550

ext/re/re.pm
pod/perldiag.pod

index 8b49ca1..4a44753 100644 (file)
@@ -81,11 +81,9 @@ sub bits {
     }
     foreach my $s (@_){
       if ($s eq 'debug') {
-         eval <<'EOE';
-           use DynaLoader;
-           @ISA = ('DynaLoader');
-           bootstrap re;
-EOE
+         require DynaLoader;
+         @ISA = ('DynaLoader');
+         bootstrap re;
          install() if $on;
          uninstall() unless $on;
          next;
index b87480e..43226e0 100644 (file)
@@ -2845,6 +2845,10 @@ bad side effects.
 interpreted as a "" or a 0, but maybe it was a mistake.  To suppress this
 warning assign an initial value to your variables.
 
+=item Useless use of "re" pragma
+
+(W) You did C<use re;> without any arguments.   That isn't very useful.
+
 =item Useless use of %s in void context
 
 (W) You did something without a side effect in a context that does nothing