... | ... |
@@ -1,4 +1,4 @@ |
1 |
-use 5.008007; |
|
1 |
+use 5.010001; |
|
2 | 2 |
package Gitprep; |
3 | 3 |
use Mojo::Base 'Mojolicious'; |
4 | 4 |
|
... | ... |
@@ -25,12 +25,6 @@ my $t = Test::Mojo->new($app); |
25 | 25 |
my $user = 'kimoto'; |
26 | 26 |
my $project = 'gitprep_t'; |
27 | 27 |
|
28 |
-# For perl 5.8 |
|
29 |
-{ |
|
30 |
- no warnings 'redefine'; |
|
31 |
- sub note { print STDERR "# $_[0]\n" unless $ENV{HARNESS_ACTIVE} } |
|
32 |
-} |
|
33 |
- |
|
34 | 28 |
note 'Home page'; |
35 | 29 |
{ |
36 | 30 |
# Page access |
... | ... |
@@ -20,15 +20,8 @@ my $rep_home = $ENV{GITPREP_REP_HOME} = "$FindBin::Bin/import_rep_user"; |
20 | 20 |
|
21 | 21 |
$ENV{GITPREP_NO_MYCONFIG} = 1; |
22 | 22 |
|
23 |
- |
|
24 | 23 |
use Gitprep; |
25 | 24 |
|
26 |
-# For perl 5.8 |
|
27 |
-{ |
|
28 |
- no warnings 'redefine'; |
|
29 |
- sub note { print STDERR "# $_[0]\n" unless $ENV{HARNESS_ACTIVE} } |
|
30 |
-} |
|
31 |
- |
|
32 | 25 |
note 'import_rep'; |
33 | 26 |
{ |
34 | 27 |
unlink $db_file; |
... | ... |
@@ -23,12 +23,6 @@ $ENV{GITPREP_NO_MYCONFIG} = 1; |
23 | 23 |
|
24 | 24 |
use Gitprep; |
25 | 25 |
|
26 |
-# For perl 5.8 |
|
27 |
-{ |
|
28 |
- no warnings 'redefine'; |
|
29 |
- sub note { print STDERR "# $_[0]\n" unless $ENV{HARNESS_ACTIVE} } |
|
30 |
-} |
|
31 |
- |
|
32 | 26 |
note 'Smart HTTP'; |
33 | 27 |
{ |
34 | 28 |
unlink $db_file; |
... | ... |
@@ -20,15 +20,8 @@ my $rep_home = $ENV{GITPREP_REP_HOME} = "$FindBin::Bin/user"; |
20 | 20 |
|
21 | 21 |
$ENV{GITPREP_NO_MYCONFIG} = 1; |
22 | 22 |
|
23 |
- |
|
24 | 23 |
use Gitprep; |
25 | 24 |
|
26 |
-# For perl 5.8 |
|
27 |
-{ |
|
28 |
- no warnings 'redefine'; |
|
29 |
- sub note { print STDERR "# $_[0]\n" unless $ENV{HARNESS_ACTIVE} } |
|
30 |
-} |
|
31 |
- |
|
32 | 25 |
note 'Start page'; |
33 | 26 |
{ |
34 | 27 |
unlink $db_file; |