svn commit: samba r20688 - in branches/SAMBA_4_0/source/pidl: .

[jelmer at samba.org]

Author: jelmer
Date: 2007-01-11 22:47:29 +0000 (Thu, 11 Jan 2007)
New Revision: 20688

WebSVN: http://websvn.samba.org/cgi-bin/viewcvs.cgi?view=rev&root=samba&rev=20688

Log:
Use argv[0] equivalent of perl.
Modified:
   branches/SAMBA_4_0/source/pidl/pidl


Changeset:
Modified: branches/SAMBA_4_0/source/pidl/pidl
===================================================================
--- branches/SAMBA_4_0/source/pidl/pidl	2007-01-11 15:41:02 UTC (rev 20687)
+++ branches/SAMBA_4_0/source/pidl/pidl	2007-01-11 22:47:29 UTC (rev 20688)
@@ -391,7 +391,7 @@
 
 
 use strict;
-use FindBin qw($RealBin);
+use FindBin qw($RealBin $Script);
 use lib "$RealBin";
 use lib "$RealBin/lib";
 use Getopt::Long;
@@ -482,7 +482,7 @@
 Copyright (C) Andrew Tridgell <tridge\@samba.org>
 Copyright (C) Jelmer Vernooij <jelmer\@samba.org>
 
-Usage: pidl [options] [--] <idlfile> [<idlfile>...]
+Usage: $Script [options] [--] <idlfile> [<idlfile>...]
 
 Generic Options:
  --help                  this help page
@@ -770,7 +770,7 @@
 }
 
 if (scalar(@ARGV) == 0) {
-	print "pidl: no input files\n";
+	print "$Script: no input files\n";
 	exit(1);
 }