Select Code to Download

sub process_modules {
    my ($active_modules_ref) = @_;  # Accept %active_modules as a refe
+rence
...
        }
    }
}

'labelupdate' => sub {
            print "process_modules - Debug: Calling WriteoutLabel with
+ active_modules_ref:\n" if $DEBUG;
...
                print "  $key => $active_modules_ref->{$key}\n" if $DE
+BUG;
            }
            Label::WriteoutLabel($active_modules_ref);  # Pass as a re
+ference

# Process modules
process_modules(\%active_modules);

package Label;
use strict;
...
        die "Error: active_modules_ref is not a HASH reference.";
    }
...