Changeset 205

Timestamp:

05/27/09 10:51:55 (15 years ago)

Author:

nanardon

Message:

• don't output to STDOUT

File:

• LATMOS-Accounts/lib/LATMOS/Accounts/Synchro.pm (modified) (2 diffs)

LATMOS-Accounts/lib/LATMOS/Accounts/Synchro.pm

@@ -143 +143 @@
                     );
                     if (defined $res) {
-                        printf(
+                        warn sprintf(
                             "%s::%s::%s => %s (%s)\n",
                             $self->from->label, $otype, $uid,
@@ -188 +188 @@
     foreach ($self->to) {
         if (my $res = $_->sync_object($sobj)) {
-            print $_->label . " $uid ($otype) $res\n";
+            warn $_->label . " $uid ($otype) $res\n";
         } else { warn "error synching $uid ($otype) to " . $_->label . "\n"; }
     }