search

nayakgi / perl-compiler

Automatically exported from code.google.com/p/perl-compiler
Other
0 stars 0 forks source link

Can not inherited properly from UNIVERSAL #241

Closed GoogleCodeExporter closed 9 years ago

GoogleCodeExporter commented 9 years ago 
'package Pickup; use UNIVERSAL qw( can ); if (can( "Pickup", "can" ) != 
\&UNIVERSAL::can) { print "not " } print "ok\n";'

What is the expected output? What do you see instead?

Expected: ok
Actual: not ok

Extracted from t/CORE/op/universal.t

Original issue reported on code.google.com by clelande...@gmail.com on 2 Dec 2013 at 5:49

GoogleCodeExporter commented 9 years ago 
passing now

$>perlcc -r -e 'package Pickup; use UNIVERSAL qw( can ); if (can( "Pickup", 
"can" ) != \&UNIVERSAL::can) { print "not " } print "ok\n";'
ok

$>perl -e 'package Pickup; use UNIVERSAL qw( can ); if (can( "Pickup", "can" ) 
!= \&UNIVERSAL::can) { print "not " } print "ok\n";'
ok

Original comment by todd.e.rinaldo on 23 Jan 2014 at 9:50