ver.t revision 7c478bd95313f5f23a4c958a745db2134aa03244
#!./perl
BEGIN {
chdir 't' if -d 't';
}
print "1..28\n";
my $test = 1;
use v5.5.640;
require v5.5.640;
# printing characters should work
print v111;
print v107.32;
# hash keys too
}
else { # EBCDIC
print v150;
print v146.64;
# hash keys too
}
# poetry optimization should also
$x = v77;
# but not when dots are involved
$x = v77.78.79;
}
else {
$x = v212.213.214;
}
#
# now do the same without the "v"
use 5.5.640;
require 5.5.640;
# hash keys too
$h{111.107.32} = "ok";
}
else {
$h{150.146.64} = "ok";
}
$x = 77.78.79;
}
else {
$x = 212.213.214;
}
# test sprintf("%vd"...) etc
}
else {
}
}
else {
}
}
else {
}
{
use bytes;
}
else {
}
}
else {
}
}
else {
}
}
{
# bug id 20000323.056
$test++;
$test++;
$test++;
$test++;
$test++;
}