F:\dev\vladb>perl -MO=Deparse readonly.pl
Can't call method "PADLIST" on an undefined value at C:/Perl/lib/B/Deparse.pm li
ne 1039.
CHECK failed--call queue aborted.
##</code><code>##

foreach my $some_path ( (defined $path_list &&
                         $#$path_list >= 0)
                         ? @{$path_list} : "" ) {

clean_path($some_path); # $some_path is now ""

## i'd rewrite it as
foreach my $some_path ( (defined $path_list and
                         ref($path_list) eq 'ARRAY'
                         and scalar @{$path_list} )
                         ? @{$path_list} : '') {