[siesta-commit] siesta/bin nacho,1.34,1.35

[prev] [thread] [next] [lurker] [Date index for 2002/10/10]

Update of /cvsroot/siesta/siesta/bin
In directory usw-pr-cvs1:/tmp/cvs-serv11489/bin

Modified Files:
	nacho 
Log Message:
Chnage to use File::Basename


Index: nacho
===================================================================
RCS file: /cvsroot/siesta/siesta/bin/nacho,v
retrieving revision 1.34
retrieving revision 1.35
diff -u -d -r1.34 -r1.35
--- nacho	1 Oct 2002 10:12:00 -0000	1.34
+++ nacho	10 Oct 2002 11:44:18 -0000	1.35
@@ -7,6 +7,7 @@
 use Siesta::User;
 use POSIX qw/strftime/;
 use File::Path qw(mkpath);
+use File::Basename;
 
 # All possible modes that we can do
 my @modes = qw(create-database
@@ -825,7 +826,9 @@
 }
 
 sub usage {
-    ( my $name = $0 ) =~ s!^.*[\\/]!!;
+
+
+    my $name = basename $0;
 
     return join '', "Usage: $name <-d database>",
       join ( " ", map { "[$_]" } @modes ),

• [siesta-commit] siesta/bin nacho,1.34,1.35 muttley 12:44 on 10 Oct 2002

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