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} : '') {