--- Memory.pm.orig 2006-02-04 17:10:16.000000000 +0000 +++ Memory.pm 2006-02-04 17:14:47.000000000 +0000 @@ -11,12 +11,25 @@ $^P |= 0x01; } +sub import { + my $class = shift; + my ($pkg) = @_; + $pkg ||= $ENV{MEM_TRACE_PKG}; + if ( $pkg ) { + $DB::target_pkg = $pkg; + } else { + warn "No package selected for Devel::Memory\n" + } + return; +} + package DB; no strict 'refs'; our $in_br; our @r; +our $target_pkg; sub DB { } # Must exist, doesn't need to do anything @@ -28,7 +41,8 @@ } else { @r = BSD::Resource::getrusage(); - print STDERR "Entering $DB::sub, maxrss = $r[2]\n" if $DB::sub =~ /SVN::Web/; + print STDERR "Entering $DB::sub, maxrss = $r[2]\n" + if $target_pkg && $DB::sub =~ /$target_pkg/o; &{$DB::sub}; }