X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fpart_export.pm;h=bd12389c2f225abec8e0db5e680232267b53a673;hb=04c0875f27d36309b6d8da8063a9254fef3a7398;hp=69a0ba5ecc271eae7eb08f8036c2e9a6e1365dd9;hpb=eef6a940b33921447b792bff7ef479d1c9612993;p=freeside.git

diff --git a/FS/FS/part_export.pm b/FS/FS/part_export.pm
index 69a0ba5ec..bd12389c2 100644
--- a/FS/FS/part_export.pm
+++ b/FS/FS/part_export.pm
@@ -533,9 +533,7 @@ sub export_info {
 #}
 
 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";