use warnings;
-print "1..47\n";
+print "1..48\n";
# type coersion on assignment
$foo = 'foo';
print $w =~ /Prototype mismatch/ ? "ok 47\n" : "not ok 47\n# $w";
}
+{
+ # [17375] rcatline to formerly-defined undef was broken. Fixed in
+ # do_readline by checking SvOK. AMS, 20020918
+ my $x = "not ";
+ $x = undef;
+ $x .= <DATA>;
+ print $x;
+}
+
__END__
ok 44
+ok 48