From dac450df6adfc1d31ff539943f06106521b4d921 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Wed, 7 Apr 2004 08:34:11 +0000
Subject: argh, the glob itself is tainted under 5.005

---
 FS/FS/part_export.pm | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

(limited to 'FS')

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";
-- 
cgit v1.2.1