From aecbb307b57513e7a5cee1289fcc67cc4c6163a5 Mon Sep 17 00:00:00 2001
From: Jelmer Vernooij <jelmer@samba.org>
Date: Thu, 11 Jan 2007 22:47:29 +0000
Subject: r20688: Use argv[0] equivalent of perl. (This used to be commit
 3dfcd9f807852f757899d4ae519e7f353002ccaf)

---
 source4/pidl/pidl | 6 +++---
 1 file 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);
 }
 
-- 
cgit