rev 1466 - trunk/siesta/bin

[prev] [thread] [next] [lurker] [Date index for 2003/10/22]

Author: richardc
Date: 2003-10-22 16:17:30 +0100 (Wed, 22 Oct 2003)
New Revision: 1466

Modified:
   trunk/siesta/bin/nacho
Log:
trim a couple of modules, qualify what we're using the other ones for


Modified: trunk/siesta/bin/nacho
===================================================================
--- trunk/siesta/bin/nacho	2003-10-22 15:10:54 UTC (rev 1465)
+++ trunk/siesta/bin/nacho	2003-10-22 15:17:30 UTC (rev 1466)
@@ -1,14 +1,13 @@
 #!/usr/local/bin/perl -w
 # $Id$
 use strict;
-use Carp;
+use Carp qw(croak);
 use FindBin;
-use File::Path qw(mkpath);
-use File::Basename;
-use Data::Dumper;
+use File::Basename qw( basename );
 use Tie::IxHash;
-use String::ShellQuote;
+use String::ShellQuote qw( shell_quote );
 use UNIVERSAL::require;
+use YAML qw( Dump );
 use Siesta::Config;
 
 BEGIN {
@@ -48,7 +47,6 @@
     exit;
 }
 
-use YAML;
 Siesta->log("nacho invoked by $< $> args\n" . Dump \@ARGV);
 
 tie my %commands, 'Tie::IxHash';
@@ -533,7 +531,7 @@
     }
 
     my %plugins = map { $_->name => $_ } @plugins;
-    
+
     my $plugin  = $plugins{$plugin_id}
       or die "That plugin is not used in the list '$list_id'\n";
 
@@ -775,7 +773,7 @@
     $pod->parse_from_file($self, '/dev/null');
     die "No such command '$command'\n" unless defined $pod->{funcs}{$command};
 
-    my $help = "\n".$pod->{funcs}{$command}{fullname}."-\n". $pod->{funcs}{$command}{longhelp}."\n";  
+    my $help = "\n".$pod->{funcs}{$command}{fullname}."-\n". $pod->{funcs}{$command}{longhelp}."\n";
     $help =~ s!(C|I|B)<([^>]+)>!$2!g;
 
     print $help;

• rev 1466 - trunk/siesta/bin richardc 16:17 on 22 Oct 2003

Generated at 13:57 on 01 Jul 2004 by mariachi 0.52