freeside/FS/FS part_export.pm,1.47.2.39,1.47.2.40

[ivan]

Update of /home/cvs/cvsroot/freeside/FS/FS
In directory pouncequick:/tmp/cvs-serv4227

Modified Files:
      Tag: FREESIDE_1_4_BRANCH
	part_export.pm 
Log Message:
make -T happy (under old perl?)

Index: part_export.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/part_export.pm,v
retrieving revision 1.47.2.39
retrieving revision 1.47.2.40
diff -u -d -r1.47.2.39 -r1.47.2.40
--- part_export.pm	29 Mar 2004 06:03:23 -0000	1.47.2.39
+++ part_export.pm	7 Apr 2004 08:07:14 -0000	1.47.2.40
@@ -533,7 +533,9 @@
 #}
 
 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";