projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
eef6a94
)
argh, the glob itself is tainted under 5.005
author
ivan
<ivan>
Wed, 7 Apr 2004 08:34:08 +0000
(08:34 +0000)
committer
ivan
<ivan>
Wed, 7 Apr 2004 08:34:08 +0000
(08:34 +0000)
FS/FS/part_export.pm
patch
|
blob
|
history
diff --git
a/FS/FS/part_export.pm
b/FS/FS/part_export.pm
index
69a0ba5
..
bd12389
100644
(file)
--- a/
FS/FS/part_export.pm
+++ b/
FS/FS/part_export.pm
@@
-533,9
+533,7
@@
sub export_info {
#}
foreach my $INC ( @INC ) {
#}
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";
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";