summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJelmer Vernooij <jelmer@samba.org>2007-01-11 22:47:29 +0000
committerGerald (Jerry) Carter <jerry@samba.org>2007-10-10 14:40:23 -0500
commitaecbb307b57513e7a5cee1289fcc67cc4c6163a5 (patch)
treebd7de2b1093b39250862018a6cb9a39093b39c60
parent50ed6e71244ef107dfcdc7b73123e6ea7689f851 (diff)
downloadsamba-aecbb307b57513e7a5cee1289fcc67cc4c6163a5.tar.gz
samba-aecbb307b57513e7a5cee1289fcc67cc4c6163a5.tar.bz2
samba-aecbb307b57513e7a5cee1289fcc67cc4c6163a5.zip
r20688: Use argv[0] equivalent of perl.
(This used to be commit 3dfcd9f807852f757899d4ae519e7f353002ccaf)
-rwxr-xr-xsource4/pidl/pidl6
1 files changed, 3 insertions, 3 deletions
diff --git a/source4/pidl/pidl b/source4/pidl/pidl
index 8084213e5d..391ec10b23 100755
--- a/source4/pidl/pidl
+++ b/source4/pidl/pidl
@@ -391,7 +391,7 @@ pidl README by Andrew Tridgell.
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 @@ print "perl IDL parser and code generator
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 @@ $dcom
}
if (scalar(@ARGV) == 0) {
- print "pidl: no input files\n";
+ print "$Script: no input files\n";
exit(1);
}