Help for this page

Select Code to Download


  1. or download this
    F:\dev\vladb>perl -MO=Deparse readonly.pl
    Can't call method "PADLIST" on an undefined value at C:/Perl/lib/B/Dep
    +arse.pm li
    ne 1039.
    CHECK failed--call queue aborted.
    
  2. or download this
    foreach my $some_path ( (defined $path_list &&
                             $#$path_list >= 0)
    ...
                             ref($path_list) eq 'ARRAY'
                             and scalar @{$path_list} )
                             ? @{$path_list} : '') {