diff options
| author | ivan <ivan> | 2004-04-07 08:07:11 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2004-04-07 08:07:11 +0000 |
| commit | eef6a940b33921447b792bff7ef479d1c9612993 (patch) | |
| tree | 03534cadeb382d095ba05c444affc07016718233 /FS/FS/part_export.pm | |
| parent | 1dcea2453d573341d3153fb966b19be161c4f1ba (diff) | |
make -T happy (under old perl?)
Diffstat (limited to 'FS/FS/part_export.pm')
| -rw-r--r-- | FS/FS/part_export.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/FS/FS/part_export.pm b/FS/FS/part_export.pm index bd12389..69a0ba5 100644 --- a/FS/FS/part_export.pm +++ b/FS/FS/part_export.pm @@ -533,7 +533,9 @@ sub export_info { #} 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"; |