6
6
$INC {" feature.pm" } = 1; # so we don't attempt to load feature.pm
7
7
}
8
8
9
- print " 1..87 \n " ;
9
+ print " 1..88 \n " ;
10
10
11
11
# Can't require test.pl, as we're testing the use/require mechanism here.
12
12
@@ -87,7 +87,7 @@ eval q{ use v5.5.630; };
87
87
is ($@ , ' ' );
88
88
89
89
eval q{ use 10.0.2; } ;
90
- like ($@ , qr / ^ \Q Perl v10.0.2 required \E / );
90
+ is ($@ , ' ' );
91
91
92
92
eval " use 5.000" ; # implicit semicolon
93
93
is ($@ , ' ' );
@@ -96,41 +96,46 @@ eval "use 5.000;";
96
96
is ($@ , ' ' );
97
97
98
98
eval " use 6.000;" ;
99
- like ($@ , qr / \Q Perl v6.0.0 required--this is only $ ^V, stopped \E / );
99
+ is ($@ , ' ' );
100
100
101
101
eval " no 6.000;" ;
102
- is ($@ , ' ' );
102
+ like ($@ , qr / \Q Perls since v6.0.0 too modern--this is $ ^V, stopped \E / );
103
103
104
104
eval " no 5.000;" ;
105
105
like ($@ , qr /\Q Perls since v5.0.0 too modern--this is $ ^V, stopped\E / );
106
106
107
107
eval " use 5.6;" ;
108
- like ($@ , qr / \Q Perl v5.600.0 required (did you mean v5.6.0?)--this is only $ ^V, stopped \E / );
108
+ is ($@ , ' ' );
109
109
110
110
eval " use 5.8;" ;
111
- like ($@ , qr / \Q Perl v5.800.0 required (did you mean v5.8.0?)--this is only $ ^V, stopped \E / );
111
+ is ($@ , ' ' );
112
112
113
113
eval " use 5.9;" ;
114
- like ($@ , qr / \Q Perl v5.900.0 required (did you mean v5.9.0?)--this is only $ ^V, stopped \E / );
114
+ is ($@ , ' ' );
115
115
116
116
eval " use 5.10;" ;
117
- like ($@ , qr / \Q Perl v5.100.0 required (did you mean v5.10.0?)--this is only $ ^V, stopped \E / );
117
+ is ($@ , ' ' );
118
118
119
119
eval " use 5.11;" ;
120
- like ($@ , qr / \Q Perl v5.110.0 required (did you mean v5.11.0?)--this is only $ ^V, stopped \E / );
120
+ is ($@ , ' ' );
121
121
122
122
eval sprintf " use %.6f;" , $] ;
123
123
is ($@ , ' ' );
124
124
125
125
126
- eval sprintf " use %.6f;" , $] - 0.000001 ;
126
+ eval sprintf " use %.6f;" , $] - 0.001 ;
127
127
is ($@ , ' ' );
128
128
129
+ my $Vthis = int $] ;
130
+ my $Vnext = $Vthis + 1;
129
131
eval sprintf (" use %.6f;" , $] + 1);
130
- like ($@ , qr / Perl v6\.\d +\.\d + required--this is only \Q $ ^V\E , stopped/ a );
132
+ like ($@ , qr / Perl v$Vnext \.\d +\.\d + required--this is only \Q $ ^V\E , stopped/ a );
133
+
134
+ eval sprintf " use %.6f;" , $] + 0.001;
135
+ like ($@ , qr / Perl v$Vthis \.\d +\.\d + required--this is only \Q $ ^V\E , stopped/ a );
131
136
132
- eval sprintf " use %.6f ;" , $] + 0.00001 ;
133
- like ($@ , qr / Perl v5 \.\d +\.\d + required--this is only \Q $ ^V\E , stopped/ a );
137
+ eval sprintf " use %.3f ;" , $Vthis + .999 ;
138
+ like ($@ , qr / Perl v $Vthis \.\d +\.\d + required--this is only \Q $ ^V\E , stopped/ a );
134
139
135
140
# check that "use 5.11.0" (and higher) loads strictures
136
141
eval ' use 5.11.0; ${"foo"} = "bar";' ;
0 commit comments