11 eval "use 5.000"; # implicit semicolon
16 print "ok ",$i++,"\n";
23 print "ok ",$i++,"\n";
25 eval sprintf "use %.5f;", $];
30 print "ok ",$i++,"\n";
33 eval sprintf "use %.5f;", $] - 0.000001;
38 print "ok ",$i++,"\n";
40 eval sprintf("use %.5f;", $] + 1);
44 print "ok ",$i++,"\n";
46 eval sprintf "use %.5f;", $] + 0.00001;
50 print "ok ",$i++,"\n";
53 { use lib } # check that subparse saves pending tokens
55 local $lib::VERSION = 1.0;
62 print "ok ",$i++,"\n";
69 print "ok ",$i++,"\n";
75 print "ok ",$i++,"\n";
78 eval "use lib 0.9 qw(fred)";
83 print "ok ",$i++,"\n";
85 print "not " unless ($INC[0] eq "fred" || ($^O eq 'MacOS' && $INC[0] eq ":fred:"));
86 print "ok ",$i++,"\n";
88 eval "use lib 1.0 qw(joe)";
93 print "ok ",$i++,"\n";
95 print "not " unless ($INC[0] eq "joe" || ($^O eq 'MacOS' && $INC[0] eq ":joe:"));
96 print "ok ",$i++,"\n";
98 eval "use lib 1.01 qw(freda)";
102 print "ok ",$i++,"\n";
104 print "not " if ($INC[0] eq "freda" || ($^O eq 'MacOS' && $INC[0] eq ":freda:"));
105 print "ok ",$i++,"\n";
108 local $lib::VERSION = 35.36;
109 eval "use lib v33.55";
111 print "ok ",$i++,"\n";
113 eval "use lib v100.105";
114 unless ($@ =~ /lib version 100\.105 required--this is only version 35\.3/) {
117 print "ok ",$i++,"\n";
119 eval "use lib 33.55";
121 print "ok ",$i++,"\n";
123 eval "use lib 100.105";
124 unless ($@ =~ /lib version 100\.105 required--this is only version 35\.3/) {
127 print "ok ",$i++,"\n";
129 local $lib::VERSION = '35.36';
130 eval "use lib v33.55";
132 print "ok ",$i++,"\n";
134 eval "use lib v100.105";
135 unless ($@ =~ /lib version 100\.105 required--this is only version 35\.36/) {
138 print "ok ",$i++,"\n";
140 eval "use lib 33.55";
142 print "ok ",$i++,"\n";
144 eval "use lib 100.105";
145 unless ($@ =~ /lib version 100\.105 required--this is only version 35\.36/) {
148 print "ok ",$i++,"\n";
150 local $lib::VERSION = v35.36;
151 eval "use lib v33.55";
153 print "ok ",$i++,"\n";
155 eval "use lib v100.105";
156 unless ($@ =~ /lib v100\.105 required--this is only v35\.36/) {
159 print "ok ",$i++,"\n";
161 eval "use lib 33.55";
163 print "ok ",$i++,"\n";
165 eval "use lib 100.105";
166 unless ($@ =~ /lib version 100\.105 required--this is only version 35\.036/) {
169 print "ok ",$i++,"\n";
174 # Regression test for patch 14937:
175 # Check that a .pm file with no package or VERSION doesn't core.
176 open F, ">xxx.pm" or die "Cannot open xxx.pm: $!\n";
179 eval "use lib '.'; use xxx 3;";
180 unless ($@ =~ /^xxx defines neither package nor VERSION--version check failed at/) {
183 print "ok ",$i++,"\n";