diff options
| author | Jelmer Vernooij <jelmer@samba.org> | 2007-01-11 22:47:29 +0000 |
|---|---|---|
| committer | Gerald (Jerry) Carter <jerry@samba.org> | 2007-10-10 14:40:23 -0500 |
| commit | aecbb307b57513e7a5cee1289fcc67cc4c6163a5 (patch) | |
| tree | bd7de2b1093b39250862018a6cb9a39093b39c60 | |
| parent | 50ed6e71244ef107dfcdc7b73123e6ea7689f851 (diff) | |
| download | samba-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-x | source4/pidl/pidl | 6 |
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); } |