Re^3: How Do I Get the Line Number In My Error Message?

Here is what I do.

sub whoami {
    my( $level ) = @_;
    $level = 1 unless defined $level;
    print "DEBUG( whoami ): ", (caller(1))[3], "\n"  if $DEBUG > $leve
+l;
    return;
    }

sub actually_does_something {
    whoami();
    my( $foo, $bar ) = @_;    
    # Do something useful here
    }
[download]

-- Argel

Comment on Re^3: How Do I Get the Line Number In My Error Message? Download Code