print "# '$newvar'.\nnot " unless $newvar eq "12";
print "ok 47\n";
-# Testing DWIM of foo = bar;
-sub foo : lvalue {
- $a;
-}
-$a = "not ok 48\n";
-foo = "ok 48\n";
-print $a;
+print "ok 48 # Skip: removed test\n";
-open bar, ">nothing" or die $!;
-bar = *STDOUT;
-print bar "ok 49\n";
-unlink "nothing";
+print "ok 49 # Skip: removed test\n";
{
my %hash; my @array;
$str = "Made w/ JavaScript";
sub veclv : lvalue { vec($str, 2, 32) }
-veclv() = 0x5065726C;
+if (ord('A') != 193) {
+ veclv() = 0x5065726C;
+}
+else { # EBCDIC?
+ veclv() = 0xD7859993;
+}
print "# $str\nnot " unless $str eq "Made w/ PerlScript";
print "ok 62\n";