#!./perl -w
-print "1..614\n";
+print "1..615\n";
BEGIN {
chdir 't' if -d 't';
$s eq "ABCABCABCABCABCABCABCABCABCABC" &
$y == 42);
}
+
+{
+ # 615
+
+ # from Wolfgang Laun: fix in change #13288
+
+ eval { my $t=unpack("P*", "abc") };
+ ok($@ =~ /P must have an explicit size/);
+}