subroutine name

[Eckart Uhlig]

Hi all,
is there a way to determine the name of the current called subroutine? I
don't want to print out the subroutine's name explicitly, I'm hoping for
a 'magic' variable/ function or something like that, which I can pass to
a plain printout function. In the perlvars manpage I haven't found
anything.


# code snippet begin 
sub anySubfunc1
{
        Print_func_name($magic_var)
        # doing something 
}

sub anySubfunc2
{
        Print_func_name($magic_var)
        # doing something 
}

sub Print_func_name
{
        my ($tmpname)[EMAIL PROTECTED];
        print "\nprocessing sub: $tmpname";
}
# code snippet end 

Thanks in advance.
Eckart 

_______________________________________________
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs