develooper Front page | perl.perl5.porters | Postings from January 2009

Re: [PATCH] Re: [PATCH] File::Copy & permission bits.

Thread Previous | Thread Next
From:
Aristotle Pagaltzis
Date:
January 27, 2009 16:32
Subject:
Re: [PATCH] Re: [PATCH] File::Copy & permission bits.
Message ID:
20090128003033.GA17246@klangraum.plasmasturm.org
* 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

nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About