[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