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

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

Thread Previous | Thread Next
From:
chromatic
Date:
January 27, 2009 11:52
Subject:
Re: [PATCH] Re: [PATCH] File::Copy & permission bits.
Message ID:
200901271150.53128.chromatic@wgz.org
On Monday 26 January 2009 05:29:39 Yuval Kogman wrote:

> nitpicking: UNIVERSAL::can($var, 'can') && ref($var)

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' );

-- c
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