Switch warnings and strict back on again in a way that's compatible
with -stable as well as -current. Reviewed by: imp
This commit is contained in:
parent
4cd0f1ee99
commit
9ea6d9ef6a
@ -1,4 +1,4 @@
|
||||
#!/usr/bin/perl
|
||||
#!/usr/bin/perl -w
|
||||
#
|
||||
# Copyright (c) 1992, 1993
|
||||
# The Regents of the University of California. All rights reserved.
|
||||
@ -42,8 +42,9 @@
|
||||
# Script to produce kobj front-end sugar.
|
||||
#
|
||||
|
||||
#use strict;
|
||||
use strict;
|
||||
use Getopt::Std;
|
||||
use vars qw($opt_c $opt_d $opt_h $opt_l $opt_p);
|
||||
|
||||
my $line_width = 80;
|
||||
|
||||
@ -55,7 +56,6 @@ my $intname;
|
||||
|
||||
# Process the command line
|
||||
#
|
||||
#our ($opt_c, $opt_d, $opt_h, $opt_l, $opt_p);
|
||||
getopts('cdhl:p')
|
||||
or usage();
|
||||
|
||||
|
Loading…
x
Reference in New Issue
Block a user