sub export_info {
#warn $_[0];
- return $exports{$_[0]} if @_;
+ return $exports{$_[0]} || {} if @_;
#{ map { %{$exports{$_}} } keys %exports };
my $r = { map { %{$exports{$_}} } keys %exports };
}
#}
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";