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>
This commit is contained in:
@@ -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;
|
||||
|
Reference in New Issue
Block a user