[svk-commit] r2143 - branches/svk-logging/lib/SVK

stig at bestpractical.com stig at bestpractical.com
Wed Nov 15 13:24:20 EST 2006


Author: stig
Date: Wed Nov 15 13:24:19 2006
New Revision: 2143

Modified:
   branches/svk-logging/lib/SVK/XD.pm

Log:
2nd pass converting SVK::XD

Modified: branches/svk-logging/lib/SVK/XD.pm
==============================================================================
--- branches/svk-logging/lib/SVK/XD.pm	(original)
+++ branches/svk-logging/lib/SVK/XD.pm	Wed Nov 15 13:24:19 2006
@@ -159,8 +159,8 @@
 	$info = eval {LoadFile ($self->{statefile})};
 	if ($@) {
 	    rename ($self->{statefile}, "$self->{statefile}.backup");
-	    print loc ("Can't load statefile, old statefile saved as %1\n",
-		     "$self->{statefile}.backup");
+	    $logger->warn(loc ("Can't load statefile, old statefile saved as %1",
+		     "$self->{statefile}.backup"));
 	}
         elsif ($info) {
             $info->{checkout}{sep} = $SEP;
@@ -220,7 +220,7 @@
     $self->{giantlock_handle} or
         die "Internal error: trying to save config without a lock!\n";
 
-    local $SIG{INT} = sub { $logger->warn( loc("Please hold on a moment. SVK is writing out a critical configuration file.\n"))};
+    local $SIG{INT} = sub { $logger->warn( loc("Please hold on a moment. SVK is writing out a critical configuration file."))};
 
     my $file = $self->{statefile};
     my $tmpfile = $file."-$$";
@@ -1042,11 +1042,11 @@
 		$seen{$copath} = 1;
 		lstat $copath;
 		unless (-e _) {
-		    $logger->warn( loc ("Unknown target: %1.\n", $copath));
+		    $logger->warn( loc ("Unknown target: %1.", $copath));
 		    next ENTRY;
 		}
 		unless (-r _) {
-		    $logger->warn( loc ("Warning: %1 is unreadable.\n", $copath));
+		    $logger->warn( loc ("Warning: %1 is unreadable.", $copath));
 		    next ENTRY;
 		}
 		$arg{cb_unknown}->($arg{editor}, catdir($arg{entry}, $now), $arg{baton});
@@ -1487,7 +1487,7 @@
 	    for sort keys %$newprops;
     }
     if (defined $targets) {
-	print loc ("Unknown target: %1.\n", $_) for sort keys %$targets;
+	$logger->warn(loc ("Unknown target: %1.", $_)) for sort keys %$targets;
     }
 
     $arg{editor}->close_directory ($baton, $pool)
@@ -1550,7 +1550,7 @@
     my $val = $self->{checkout}->get ($entry, 1);
     return unless $val && $val->{'.conflict'};
     $self->{checkout}->store ($entry, {%$val, '.conflict' => undef});
-    print loc("%1 marked as resolved.\n", $entry);
+    $logger->warn(loc("%1 marked as resolved.", $entry));
 }
 
 sub do_resolved {


More information about the svk-commit mailing list