diff options
| author | Charles Bailey <bailey@newman.upenn.edu> | 1999-03-17 20:04:31 -0400 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-03-24 10:30:51 +0000 |
| commit | 918c0b2d7bc71242c4810571f6971cac26c1327c (patch) | |
| tree | c244a3d5d86c2cf948ab297e79353a815e62dcf6 /lib/File/Basename.pm | |
| parent | fa08c05b640ede69b33d2ae5b23634d6e5b0865c (diff) | |
| download | perl-918c0b2d7bc71242c4810571f6971cac26c1327c.tar.gz | |
applied suggested patch, modulo superseded parts
Message-id: <01J8YF0EOWLU001E7S@mail.newman.upenn.edu>
Subject: [PATCH 5.005_56] Miscellaneous small fixes
p4raw-id: //depot/perl@3152
Diffstat (limited to 'lib/File/Basename.pm')
| -rw-r--r-- | lib/File/Basename.pm | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/lib/File/Basename.pm b/lib/File/Basename.pm index 69bb1fa5fd..191eff970a 100644 --- a/lib/File/Basename.pm +++ b/lib/File/Basename.pm @@ -124,7 +124,17 @@ directory name to be F<.>). ## use strict; -use re 'taint'; +# A bit of juggling to insure that C<use re 'taint';> awlays works, since +# File::Basename is used during the Perl build, when the re extension may +# not be available. +BEGIN { + unless (eval { require re; }) + { eval ' sub re::import { $^H |= 0x00100000; } ' } + import re 'taint'; +} + + + require Exporter; @ISA = qw(Exporter); |