--- lib/PXElator/CouchDB.pm	2009/08/18 21:30:55	256
+++ lib/PXElator/CouchDB.pm	2009/08/18 21:53:19	258
@@ -125,17 +125,22 @@
 
 	my @caller_name = ( qw/package file line sub/ );
 	my @caller = caller(0);
+	$caller[3] = (caller(1))[3];
 	$caller[3] =~ s{^.+::}{}; # stip package name from sub
 	$data->{ $caller_name[$_] } = $caller[$_] foreach ( 0 .. $#caller_name );
 
-	my $caller;
-	my $depth = 0;
-	while ( my @c = caller($depth) ) {
-		push @$caller, [ @c ];
-		$depth++;
-	}
+	if ( $ENV{DEBUG} ) {
+
+		my $caller;
+		my $depth = 0;
+		while ( my @c = caller($depth) ) {
+			push @$caller, [ @c ];
+			$depth++;
+		}
 
-	$data->{caller} = $caller;
+		$data->{caller} = $caller;
+
+	}
 
 #	carp 'audit ', dump($data);