diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-02-03 15:27:26 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-02-03 15:27:26 +0000 |
| commit | 1d662fb62e71ab3e37603febfa8212dd1e7e7f7e (patch) | |
| tree | 677a16a60f67266ed9fdf81cf374b14e9c42b1c8 /lib/Net | |
| parent | 806ca1c22d6bc2cc9ece12ac5288fbb5d07e10bc (diff) | |
| download | perl-1d662fb62e71ab3e37603febfa8212dd1e7e7f7e.tar.gz | |
[PATCH t/op/taint.t] remove possible false positive
From: Rafael Garcia-Suarez <rgarciasuarez@free.fr>
Date: Sat, 2 Feb 2002 13:11:01 +0100
Message-ID: <20020202131101.A722@rafael>
Subject: [PATCH t/op/ver.t] another false positive
From: Rafael Garcia-Suarez <rgarciasuarez@free.fr>
Date: Sat, 2 Feb 2002 13:38:22 +0100
Message-ID: <20020202133822.E722@rafael>
Subject: [PATCH] t/test.pl:ok() doesn't work
From: sthoenna@efn.org (Yitzchak Scott-Thoennes)
Date: Sun, 03 Feb 2002 00:02:38 -0800
Message-ID: <e6OX8gzkgSMO092yn@efn.org>
p4raw-id: //depot/perl@14529
Diffstat (limited to 'lib/Net')
| -rw-r--r-- | lib/Net/t/netrc.t | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lib/Net/t/netrc.t b/lib/Net/t/netrc.t index 885b515452..464794b956 100644 --- a/lib/Net/t/netrc.t +++ b/lib/Net/t/netrc.t @@ -58,7 +58,8 @@ SKIP: { $stat[2] = 077; ok( !defined(Net::Netrc::_readrc()), '_readrc() should not read world-writable file' ); - ok( $warn =~ /^Bad permissions:/, '... and should warn about it' ); + ok( scalar( $warn =~ /^Bad permissions:/ ), + '... and should warn about it' ); # the owner field should still not match $stat[2] = 0; @@ -66,7 +67,8 @@ SKIP: { if ($<) { ok( !defined(Net::Netrc::_readrc()), '_readrc() should not read file owned by someone else' ); - ok( $warn =~ /^Not owner:/, '... and should warn about it' ); + ok( scalar( $warn =~ /^Not owner:/ ), + '... and should warn about it' ); } else { ok(1, "Skip - testing as root") for 1..2; } |