From: Darren Chamberlain <dlc@sevenroot.org>
Date: Wed, 15 Oct 2003 13:46:29 +0000 (+0000)
Subject: Made $0 a little nicer.
X-Git-Tag: v0.04~76
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=aba9fea4cd70fe8a9cedc659168459874cecd145;p=dbsrgits%2FSQL-Translator.git

Made $0 a little nicer.
---

diff --git a/bin/sqlt-dumper b/bin/sqlt-dumper
index 6993097..1a7be98 100755
--- a/bin/sqlt-dumper
+++ b/bin/sqlt-dumper
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 
 # -------------------------------------------------------------------
-# $Id: sqlt-dumper,v 1.1 2003-08-26 03:56:43 kycl4rk Exp $
+# $Id: sqlt-dumper,v 1.2 2003-10-15 13:46:29 dlc Exp $
 # -------------------------------------------------------------------
 # Copyright (C) 2003 Ken Y. Clark <kclark@cpan.org>
 #
@@ -59,9 +59,10 @@ use strict;
 use Pod::Usage;
 use Getopt::Long;
 use SQL::Translator;
+use File::Basename qw(basename);
 
 use vars '$VERSION';
-$VERSION = sprintf "%d.%02d", q$Revision: 1.1 $ =~ /(\d+)\.(\d+)/;
+$VERSION = sprintf "%d.%02d", q$Revision: 1.2 $ =~ /(\d+)\.(\d+)/;
 
 my ( $help, $db, $add_truncate, $skip, $db_user, $db_pass, $dsn );
 GetOptions(
@@ -91,13 +92,14 @@ my $parser = $t->parser or die $t->error;
 $parser->($t, $t->data);
 my $schema = $t->schema;
 my $now    = localtime;
+my $prog   = basename $0;
 
 my $out = <<"EOF";
 #!/usr/bin/perl
 
 #
 # Generated $now
-# By sqlt-dumper.pl, part of the SQLFairy project
+# By $prog, part of the SQLFairy project
 # For more info, see http://sqlfairy.sourceforge.net/
 #