File tree Expand file tree Collapse file tree 2 files changed +3
-19
lines changed Expand file tree Collapse file tree 2 files changed +3
-19
lines changed Original file line number Diff line number Diff line change 1
1
# -*- cperl -*-
2
2
3
- use 5.005 ;
3
+ use 5.008_001 ;
4
4
use Config;
5
- BEGIN {
6
-
7
- if ($] == 5.008 && $ENV {" LANG" } ne " C" && $^O ne ' MSWin32' ) {
8
- $ENV {LANG } = " C" ;
9
- print STDERR " \n\n\n\$ ENV{LANG} is not 'C' execing 'perl Makefile.PL'" .
10
- " with ENV{LANG} == 'C'\n You can skip this check by: 'export " .
11
- " LANG='C' before running 'perl Makefile.PL or by upgrading your Perl'\n\n\n " ;
12
-
13
- sleep (5);
14
- exec ($Config {perlpath }, $0 , @ARGV )|| die $! ;
15
- }
16
- }
17
5
use strict;
18
- BEGIN { $^W = 1; }
6
+ use warnings;
19
7
use Getopt::Long();
20
8
use ExtUtils::MakeMaker();
21
9
use Data::Dumper ();
@@ -26,8 +14,7 @@ require DBI::DBD;
26
14
27
15
my $TESTDB = " test" ;
28
16
29
- use vars qw( $opt) ;
30
- $opt = { " help" => \&Usage, };
17
+ our $opt = { " help" => \&Usage, };
31
18
32
19
Getopt::Long::GetOptions(
33
20
$opt ,
Original file line number Diff line number Diff line change 2
2
3
3
use strict;
4
4
use warnings;
5
-
6
- use vars qw( @ISA $VERSION $err $errstr $drh) ;
7
5
require 5.008_001; # just as DBI
8
6
9
7
package DBD::mysql ;
10
- require 5.008_001; # just as DBI
11
8
12
9
use DBI ();
13
10
use DynaLoader();
You can’t perform that action at this time.
0 commit comments