Skip to content

Commit 964e5a1

Browse files
committed
Merge pull request #22 from ilmari/misc-cleanups
Clean up after 5.8.1 requirement bump
2 parents 99212e0 + 5548a97 commit 964e5a1

File tree

2 files changed

+3
-19
lines changed

2 files changed

+3
-19
lines changed

Makefile.PL

Lines changed: 3 additions & 16 deletions
Original file line numberDiff line numberDiff line change
@@ -1,21 +1,9 @@
11
# -*- cperl -*-
22

3-
use 5.005;
3+
use 5.008_001;
44
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-
}
175
use strict;
18-
BEGIN { $^W = 1; }
6+
use warnings;
197
use Getopt::Long();
208
use ExtUtils::MakeMaker();
219
use Data::Dumper ();
@@ -26,8 +14,7 @@ require DBI::DBD;
2614

2715
my $TESTDB = "test";
2816

29-
use vars qw($opt);
30-
$opt = { "help" => \&Usage, };
17+
our $opt = { "help" => \&Usage, };
3118

3219
Getopt::Long::GetOptions(
3320
$opt,

lib/DBD/mysql.pm

Lines changed: 0 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -2,12 +2,9 @@
22

33
use strict;
44
use warnings;
5-
6-
use vars qw(@ISA $VERSION $err $errstr $drh);
75
require 5.008_001; # just as DBI
86

97
package DBD::mysql;
10-
require 5.008_001; # just as DBI
118

129
use DBI ();
1310
use DynaLoader();

0 commit comments

Comments
 (0)