[Bps-public-commit] r18906 - Shipwright/trunk/lib

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Sun Mar 22 04:25:02 2009
New Revision: 18906

Modified:
   Shipwright/trunk/lib/Shipwright.pm

Log:
set default log_file to -

Modified: Shipwright/trunk/lib/Shipwright.pm
==============================================================================
--- Shipwright/trunk/lib/Shipwright.pm	(original)
+++ Shipwright/trunk/lib/Shipwright.pm	Sun Mar 22 04:25:02 2009
@@ -27,11 +27,7 @@
     );
     $args{log_level} = uc $args{log_level} || 'FATAL';
 
-    unless ( $args{log_file} ) {
-        # a better named log_file, in the name of repository
-        my $info = join '', map { /\w/ ? $_ : '_' } split //, $args{repository};
-        $args{log_file} = catfile( tmpdir(), "shipwright_$info.log" );
-    }
+    $args{log_file} = '-' unless $args{log_file};
 
     my $self = {
         log_level => $args{log_level},