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 /lib/ExtUtils | |
| 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 'lib/ExtUtils')
| -rw-r--r-- | lib/ExtUtils/t/Command.t | 4 | ||||
| -rw-r--r-- | lib/ExtUtils/t/Manifest.t | 2 |
2 files changed, 3 insertions, 3 deletions
diff --git a/lib/ExtUtils/t/Command.t b/lib/ExtUtils/t/Command.t index 7115bea503..3ff59b9c58 100644 --- a/lib/ExtUtils/t/Command.t +++ b/lib/ExtUtils/t/Command.t @@ -1,4 +1,4 @@ -#!./perl -w +#!./perl -Tw BEGIN { chdir 't' if -d 't'; @@ -71,7 +71,7 @@ BEGIN { ok( test_f(), 'testing non-existent file' ); @ARGV = ( 'ecmdfile' ); - is( ! test_f(), (-f 'ecmdfile'), 'testing non-existent file' ); + cmp_ok( ! test_f(), '==', (-f 'ecmdfile'), 'testing non-existent file' ); # these are destructive, have to keep setting @ARGV @ARGV = ( 'ecmdfile' ); diff --git a/lib/ExtUtils/t/Manifest.t b/lib/ExtUtils/t/Manifest.t index f531406a44..04c57ead4c 100644 --- a/lib/ExtUtils/t/Manifest.t +++ b/lib/ExtUtils/t/Manifest.t @@ -81,7 +81,7 @@ is( $res, 'bar', 'bar reported as new' ); use vars qw($ExtUtils::Manifest::Quiet); $ExtUtils::Manifest::Quiet = 1; ($res, $warn) = catch_warning( \&ExtUtils::Manifest::skipcheck ); -is( $warn, '', 'disabled warnings' ); +cmp_ok( $warn, ,'eq', '', 'disabled warnings' ); # add a skip file with a rule to skip itself add_file( 'MANIFEST.SKIP', "baz\n.SKIP" ); |