oysteikt/heimdal
0
0
Fork 0
Code Issues 5 Pull Requests Releases Activity

GSSAPI: update lib/gssapi/gen-oid.pl to work with Perl 5

Browse Source 
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:
Douglas Bagnall
2015-07-30 17:41:35 +12:00
parent db4175c225
commit f132e0b2a3
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
lib/gssapi/gen-oid.pl
View File

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