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 <[EMAIL PROTECTED]> Copyright (C) Jelmer Vernooij <[EMAIL PROTECTED]> -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); }
