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

[ivan]

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

Modified Files:
      Tag: FREESIDE_1_4_BRANCH
	part_export.pm 
Log Message:
argh, the glob itself is tainted under 5.005

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