r20688: Use argv[0] equivalent of perl.

diff --git a/source/pidl/pidl b/source/pidl/pidl
index 8084213e5df5b583c9f3ef35740461c10b52b10d..391ec10b236c178a00fa1cee86cfea8577a7b2a8 100755 (executable)
--- a/source/pidl/pidl
+++ b/source/pidl/pidl
@@ -391,7 +391,7 @@ pidl README by Andrew Tridgell.
 
 
 use strict;
 
 
 use strict;

-use FindBin qw($RealBin);
+use FindBin qw($RealBin $Script);

 use lib "$RealBin";
 use lib "$RealBin/lib";
 use Getopt::Long;
 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>
 
 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
 
 Generic Options:
  --help                  this help page


@@ -770,7 +770,7 @@ $dcom
 }
 
 if (scalar(@ARGV) == 0) {
 }
 
 if (scalar(@ARGV) == 0) {

-       print "pidl: no input files\n";
+       print "$Script: no input files\n";

        exit(1);
 }
 
        exit(1);
 }