diff options
| author | Nicholas Clark <nick@ccl4.org> | 2007-12-28 09:59:06 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2007-12-28 09:59:06 +0000 |
| commit | 5c35adbb8fc4c988807097c4d379e2485ada5865 (patch) | |
| tree | 68cb0d31f61fbabefe05d3673ae29eefe3550118 /t | |
| parent | 662f1f9e0a1bbee45e1e02386151364c8517604e (diff) | |
| download | perl-5c35adbb8fc4c988807097c4d379e2485ada5865.tar.gz | |
First class regexps.
p4raw-id: //depot/perl@32751
Diffstat (limited to 't')
| -rw-r--r-- | t/op/qr.t | 9 |
1 files changed, 1 insertions, 8 deletions
@@ -6,15 +6,8 @@ BEGIN { require './test.pl'; } -plan tests => 2; +plan tests => 1; my $rx = qr//; is(ref $rx, "Regexp", "qr// blessed into `Regexp' by default"); - -# -# DESTROY doesn't do anything in the case of qr// except make sure -# that lookups for it don't end up in AUTOLOAD lookups. But make sure -# it's there anyway. -# -ok($rx->can("DESTROY"), "DESTROY method defined for Regexp"); |