From: Jelmer Vernooij <jelmer@samba.org>
Date: Thu, 11 Jan 2007 22:47:29 +0000 (+0000)
Subject: r20688: Use argv[0] equivalent of perl.
X-Git-Url: http://git.samba.org/samba.git/?p=jelmer%2Fsamba4-debian.git;a=commitdiff_plain;h=3dfcd9f807852f757899d4ae519e7f353002ccaf;ds=sidebyside

r20688: Use argv[0] equivalent of perl.
---

diff --git a/source/pidl/pidl b/source/pidl/pidl
index 8084213e5..391ec10b2 100755
--- a/source/pidl/pidl
+++ b/source/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);
 }