Select Code to Download

line_no

...
497                print STDERR "\nCould not close \$fh_debug: $!\n";
498                die;
499            }

Arrived in the custom_functions::master_log subroutine.
The close function call was successful.
...
Could not close $fh_debug: Bad file descriptor
Died at /u1/stat/global/bin/perllib/master_log.pm line 498.
Can't use an undefined value as a symbol reference at /u1/stat/global/
+bin/perllib/master_log.pm line 483.

480        my $subroutine_name = (caller(0))[3];
481        my $invoker = (caller(1))[3];
482        print “Arrived in the $subroutine_name subroutine.\n”;
483        print “My invoker is $invoker.\n”;