diff options
| author | Michael G. Schwern <schwern@pobox.com> | 2002-01-10 22:35:51 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-01-11 13:24:13 +0000 |
| commit | 4940c44306f1533e993cbca6152c66067eca02ca (patch) | |
| tree | 324ee5229a166c2e8a26100566c6e0c03d6b56a9 /ext/re | |
| parent | a9153838573937ae6673c59472b70743ddaf741a (diff) | |
| download | perl-4940c44306f1533e993cbca6152c66067eca02ca.tar.gz | |
[PATCH] is() undef/'' behavior change
Date: Fri, 11 Jan 2002 03:35:51 -0500
Message-ID: <20020111083551.GC30666@blackrider>
Subject: [PATCH] Pod::InputObjects warnings & is() undef/'' fix
From: Michael G Schwern <schwern@pobox.com>
Date: Fri, 11 Jan 2002 03:37:44 -0500
Message-ID: <20020111083744.GD30666@blackrider>
p4raw-id: //depot/perl@14179
Diffstat (limited to 'ext/re')
| -rw-r--r-- | ext/re/re.t | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/ext/re/re.t b/ext/re/re.t index ff3a3c51e9..1a8f278566 100644 --- a/ext/re/re.t +++ b/ext/re/re.t @@ -1,12 +1,12 @@ #!./perl -use strict; - BEGIN { chdir 't' if -d 't'; @INC = '../lib'; } +use strict; + use Test::More tests => 13; require_ok( 're' ); @@ -31,7 +31,7 @@ like( $warn, qr/Useless use/, 'bits() should warn with no args' ); delete $ENV{PERL_RE_COLORS}; re::bits(0, 'debug'); -is( $ENV{PERL_RE_COLORS}, '', +is( $ENV{PERL_RE_COLORS}, undef, "... should not set regex colors given 'debug'" ); re::bits(0, 'debugcolor'); isnt( $ENV{PERL_RE_COLORS}, '', |