use the untaint version otherwise we die with error 9
This commit is contained in:
parent
48cd4cb55c
commit
7f565e318f
|
@ -365,7 +365,7 @@ sub DiskUsage {
|
|||
}
|
||||
if ( ! defined $_[0]{DiskUsage} ) {
|
||||
my $size = 0;
|
||||
File::Find::find( sub { $size += -f $_ ? -s _ : 0 }, $_[0]->Path() );
|
||||
File::Find::find( { wanted=>sub { $size += -f $_ ? -s _ : 0 }, untaint=>1 }, $_[0]->Path() );
|
||||
$_[0]{DiskUsage} = $size;
|
||||
}
|
||||
}
|
||||
|
|
Loading…
Reference in New Issue