use warnings;
-print "1..52\n";
+print "1..53\n";
# type coersion on assignment
$foo = 'foo';
print $x || "not ok 52\n";
}
+# stringified typeglob should escape leading control char
+print *^A eq "*main::^A" ? "ok 53\n" : "not ok 53\n";
+
__END__
ok 44
ok 48