From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Sun, 27 May 2007 11:27:12 +0000 (+0000)
Subject:  r1261@llin:  dpavlin | 2007-05-27 13:27:55 +0200
X-Git-Url: http://git.rot13.org/?a=commitdiff_plain;h=00bed2491c25fb2154cbd3681ef42c80a327b361;p=webpac2

 r1261@llin:  dpavlin | 2007-05-27 13:27:55 +0200
 profiling: add sub { dump( ) } for $log->debug


git-svn-id: svn+ssh://mjesec/home/dpavlin/svn/webpac2/trunk@852 07558da8-63fa-0310-ba24-9fe276d99e06
---

diff --git a/lib/WebPAC/Validate.pm b/lib/WebPAC/Validate.pm
index 30633be..a5e6b19 100644
--- a/lib/WebPAC/Validate.pm
+++ b/lib/WebPAC/Validate.pm
@@ -282,7 +282,7 @@ sub validate_rec {
 		}
 	}
 
-	$log->debug("_delimiters_templates = ", dump( $self->{_delimiters_templates} ) );
+	$log->debug("_delimiters_templates = ", sub { dump( $self->{_delimiters_templates} ) } );
 
 	foreach my $must (sort keys %{ $self->{must_exist} }) {
 		next if ($fields->{$must});
@@ -293,7 +293,7 @@ sub validate_rec {
 	if ($errors) {
 		$log->debug("errors: ", $self->report_error( $errors ) );
 
-		my $mfn = $rec->{'000'}->[0] || $log->logconfess("record ", dump( $rec ), " doesn't have MFN");
+		my $mfn = $rec->{'000'}->[0] || $log->logconfess("record ", sub { dump( $rec ) }, " doesn't have MFN");
 		$self->{errors}->{$mfn} = $errors;
 	}
 
@@ -331,7 +331,7 @@ sub reset {
 				$self->{_delimiters_templates}->{$f}->{$t};
 		}
 	}
-	$log->debug("_accumulated_delimiters_templates = ", dump( $self->{_accumulated_delimiter_templates} ));
+	$log->debug("_accumulated_delimiters_templates = ", sub { dump( $self->{_accumulated_delimiter_templates} ) } );
 	delete ($self->{_delimiters_templates});
 }
 
@@ -393,18 +393,14 @@ sub report_error {
 				$accumulated ? "$accumulated\t$k" : $k
 			);
 
-			$log->debug(
-				( $new_results		? "new_results: " . dump($new_results) ." "	: '' ),
-			);
+			$log->debug( "new_results: ", sub { dump($new_results) } ) if ( $new_results );
 
 			push @$results, $new_results if ($new_results);
 			$dump = $new_dump if ($new_dump);
 
 		}
 
-		$log->debug(
-			( $results		? "results: " . dump($results) ." "	: '' ),
-		);
+		$log->debug( "results: ", sub { dump($results) } ) if ( $results );
 
 		if ($#$results == 0) {
 			return ($results->[0], $dump);