in reply to package DB penalty?

You're not using the DB package (DB - programmatic interface to the Perl debugging API).

You code snippet makes no sense. Where does @DB::args come from? What are you doing with @DB::a? What are you doing with my @a? my @args?

@foo = @bar; copies @bar into the variable @foo. Read perldoc perldata.

update: ah, I see. Still the @a part makes little sense, as does the concern about penalty.

MJD says you can't just make shit up and expect the computer to know what you mean, retardo!
I run a Win32 PPM repository for perl 5.6x+5.8x. I take requests.
** The Third rule of perl club is a statement of fact: pod is sexy.

Replies are listed 'Best First'.
Re: Re: package DB penalty?
by hv (Prior) on May 15, 2003 at 01:03 UTC

    The reference to @DB::args comes from perldoc -f caller.

    Note that the OP's snippet comes from the Carp module as shipped with an oldish version of perl; that effect is achieved with rather different code in more recent versions (but using the same underlying mechanism) within Carp::caller_info() in Carp::Heavy.

    Hugo
[reply]
[d/l]
[select]
      Interesting - I didn't know they had changed it on 5.8.0. Perl 5.6.0 still used it the same old way. The new way still actually uses the exact same mechanism - just using different programming technique.

      my @a=qw(random brilliant braindead); print $a[rand(@a)];
[reply]

In Section Seekers of Perl Wisdom