[Bps-public-commit] r19043 - Shipwright/trunk/lib/Shipwright/Script

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Sun Apr  5 01:20:47 2009
New Revision: 19043

Modified:
   Shipwright/trunk/lib/Shipwright/Script/Ktf.pm

Log:
if no names specified, show all the failures

Modified: Shipwright/trunk/lib/Shipwright/Script/Ktf.pm
==============================================================================
--- Shipwright/trunk/lib/Shipwright/Script/Ktf.pm	(original)
+++ Shipwright/trunk/lib/Shipwright/Script/Ktf.pm	Sun Apr  5 01:20:47 2009
@@ -21,13 +21,13 @@
     my $self  = shift;
     my @names = @_;
 
-    confess "need name arg\n" unless @names;
-
     my $shipwright = Shipwright->new( repository => $self->repository, );
 
     my $ktf = $shipwright->backend->ktf;
 
     if ( $self->delete || defined $self->set ) {
+        confess "need name arg\n" unless @names;
+
         if ( $self->delete ) {
             delete $ktf->{$_} for @names;
         }
@@ -37,7 +37,12 @@
         $shipwright->backend->ktf($ktf);
     }
 
-    $self->_show_ktf( $ktf, $_ ) for @names;
+    if ( @names ) {
+        $self->_show_ktf( $ktf, $_ ) for @names;
+    }
+    else {
+        $self->_show_ktf( $ktf, $_ ) for sort keys %$ktf;
+    }
 }
 
 sub _show_ktf {