Help for this page

Select Code to Download


  1. or download this
    sub do_stuff {

...
    print "IN SUB: " . $hash->{'a'}->{'status'} . "\n";
    return 0;
}
  2. or download this
    sub do_stuff {
    my $hash = dclone(shift);
    $hash->{'a'}->{'status'} = "NOT OK";
    print "IN SUB: " . $hash->{'a'}->{'status'} . "\n";
}
  3. or download this
    sub do_stuff {

...
    print "IN SUB: " . $hash->{'a'}->{'status'} . "\n";
    return 0;
}