r20688: Use argv[0] equivalent of perl.
authorJelmer Vernooij <jelmer@samba.org>
Thu, 11 Jan 2007 22:47:29 +0000 (22:47 +0000)
committerGerald (Jerry) Carter <jerry@samba.org>
Wed, 10 Oct 2007 19:40:23 +0000 (14:40 -0500)
source/pidl/pidl

index 8084213e5df5b583c9f3ef35740461c10b52b10d..391ec10b236c178a00fa1cee86cfea8577a7b2a8 100755 (executable)
@@ -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);
 }