#!./perl
use Test::More tests => 2 + ($^W = 0);
eval "\nuse Classic'Perl jmjbatabjm";
like
$@,
qr"^jmjbatabjm\ is\ not\ a\ feature\ Classic::Perl\ knows\ about\ at\
\(eval\ [0-9]+\)\ line\ [0-9]+.\n"x
;
eval "\nno Classic'Perl otodihohid";
like
$@,
qr"^otodihohid\ is\ not\ a\ feature\ Classic::Perl\ knows\ about\ at\
\(eval\ [0-9]+\)\ line\ [0-9].\n"x
;