Help for this page

Select Code to Download


  1. or download this
    foreach my $type (@type_order) {
      print "$log_pre running $action for $type entries\n"; 
      # Iterate over all items of that type 
      my $type_hash = $hashref->{$type}; 
      next unless ref($type_hash) eq 'HASH'; # <-- add
    
  2. or download this
    foreach my $type (@type_order) {
      # Iterate over all items of that type 
    ...
      }
      .
      .