freeside/FS/FS part_export.pm,1.94,1.95

[ivan]

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

Modified Files:
	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.94
retrieving revision 1.95
diff -u -d -r1.94 -r1.95
--- part_export.pm	29 Mar 2004 06:03:21 -0000	1.94
+++ part_export.pm	7 Apr 2004 08:07:11 -0000	1.95
@@ -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";