ensure newlines on logging

dagolden · Aug 13, 2011 · eba6a30 · eba6a30
1 parent a5102f6
commit eba6a30
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/PAUSE/mldistwatch.pm b/lib/PAUSE/mldistwatch.pm
@@ -175,11 +175,11 @@ sub verbose {
             Data::Dumper->new([$self],[qw()])->Indent(1)->Useqq(1)->Dump;
         $self->{INTRODUCED} = undef;
     }
+    push @what, "\n" unless $what[-1] =~ m{\n$};
     my $logfh;
     if (my $logfile = $self->{OPT}{logfile}) {
         open $logfh, ">>", $logfile or die;
         unshift @what, scalar localtime;
-        push @what, "\n";
     } else {
         $logfh = *STDOUT;
     }