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

[ivan]

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

Modified Files:
	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.95
retrieving revision 1.96
diff -u -d -r1.95 -r1.96
--- part_export.pm	7 Apr 2004 08:07:11 -0000	1.95
+++ part_export.pm	7 Apr 2004 08:34:08 -0000	1.96
@@ -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";