* chromatic <chromatic@wgz.org> [2009-01-27 20:55]: > Nitpicking: > > use Test::More tests => 1; > > sub blessed { > my $var = shift; > return UNIVERSAL::can($var, 'can') && ref($var); > } > > ok( ! blessed( qr// ), 'compiled regexp is not blessed' ); Nitpicking: use Test::More tests => 1; use Scalar::Util 'blessed'; ok( ! blessed( qr// ), 'compiled regexp is not blessed' ); Freaky, though: $ perl -le'print qr//->can('can')' CODE(0x814cee8) Heh. Regards, -- Aristotle Pagaltzis // <http://plasmasturm.org/>Thread Previous | Thread Next