From: ivan <ivan>
Date: Wed, 7 Apr 2004 08:07:11 +0000 (+0000)
Subject: make -T happy (under old perl?)
X-Git-Tag: NET_WHOIS_RAW_0_31~3
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=eef6a940b33921447b792bff7ef479d1c9612993;hp=1dcea2453d573341d3153fb966b19be161c4f1ba

make -T happy (under old perl?)
---

diff --git a/FS/FS/part_export.pm b/FS/FS/part_export.pm
index bd12389c2..69a0ba5ec 100644
--- a/FS/FS/part_export.pm
+++ b/FS/FS/part_export.pm
@@ -533,7 +533,9 @@ sub export_info {
 #}
 
 foreach my $INC ( @INC ) {
-  foreach my $file ( glob("$INC/FS/part_export/*.pm") ) {
+  $INC =~ /^(.*)$/;
+  my $untainted_INC = $1;
+  foreach my $file ( glob("$untainted_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";