Change 33697 by [EMAIL PROTECTED] on 2008/04/16 13:15:20
Add the verbatim perl code mentioned in the comments of
http://www.xray.mpe.mpg.de/mailing-lists/perl5-porters/2001-05/msg01710.html
but never actually tested.
Affected files ...
... //depot/perl/t/op/universal.t#33 edit
Differences ...
==== //depot/perl/t/op/universal.t#33 (xtext) ====
Index: perl/t/op/universal.t
--- perl/t/op/universal.t#32~30806~ 2007-03-30 23:23:12.000000000 -0700
+++ perl/t/op/universal.t 2008-04-16 06:15:20.000000000 -0700
@@ -10,7 +10,7 @@
require "./test.pl";
}
-plan tests => 111;
+plan tests => 112;
$a = {};
bless $a, "Bob";
@@ -228,3 +228,9 @@
eval { UNIVERSAL::DOES([], "foo") };
like( $@, qr/Can't call method "DOES" on unblessed reference/,
'DOES call error message says DOES, not isa' );
+
+# Tests for can seem to be split between here and method.t
+# Add the verbatim perl code mentioned in the comments of
+# http://www.xray.mpe.mpg.de/mailing-lists/perl5-porters/2001-05/msg01710.html
+# but never actually tested.
+is(UNIVERSAL->can("NoSuchPackage::foo"), undef);
End of Patch.
