diff options
| author | ivan <ivan> | 2004-04-07 08:34:11 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2004-04-07 08:34:11 +0000 |
| commit | dac450df6adfc1d31ff539943f06106521b4d921 (patch) | |
| tree | 9aac08f3f224989c66754e5cc5e64dc364612a79 | |
| parent | 866dee8f68a8acacd7afb31677f8d44d5eb663c9 (diff) | |
argh, the glob itself is tainted under 5.005
| -rw-r--r-- | FS/FS/part_export.pm | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/FS/FS/part_export.pm b/FS/FS/part_export.pm index 8ac8d751e..f722dd917 100644 --- a/FS/FS/part_export.pm +++ b/FS/FS/part_export.pm @@ -533,9 +533,7 @@ sub export_info { #} foreach my $INC ( @INC ) { - $INC =~ /^(.*)$/; - my $untainted_INC = $1; - foreach my $file ( glob("$untainted_INC/FS/part_export/*.pm") ) { + foreach my $file ( glob("$INC/FS/part_export/*.pm") ) { warn "attempting to load export info from $file\n" if $DEBUG; $file =~ /\/(\w+)\.pm$/ or do { warn "unrecognized file in $INC/FS/part_export/: $file\n"; |