From f132e0b2a3c66becd305f6f2ac1c311f6e453001 Mon Sep 17 00:00:00 2001
From: Douglas Bagnall <douglas.bagnall@catalyst.net.nz>
Date: Thu, 30 Jul 2015 17:41:35 +1200
Subject: [PATCH] GSSAPI: update lib/gssapi/gen-oid.pl to work with Perl 5

The invocation `require "getopts.pl"; Getopts(...)` works in Perl 4,
but not in recent Perl 5.

Signed-off-by: Douglas Bagnall <douglas.bagnall@catalyst.net.nz>
---
 lib/gssapi/gen-oid.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/gssapi/gen-oid.pl b/lib/gssapi/gen-oid.pl
index 4a519f89a..c02f5be9b 100644
--- a/lib/gssapi/gen-oid.pl
+++ b/lib/gssapi/gen-oid.pl
@@ -31,14 +31,14 @@
 # OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 # SUCH DAMAGE.
 
-require 'getopts.pl';
+use Getopt::Std;
 
 my $output;
 my $CFILE, $HFILE;
 my $onlybase;
 my $header = 0;
 
-Getopts('b:h') || die "foo";
+getopts('b:h') || die "USAGE: ./gen-oid [-b BASE] [-h HEADER]";
 
 if($opt_b) {
     $onlybase = $opt_b;