diff options
author | Graham Barr <gbarr@pobox.com> | 2002-02-25 13:51:19 +0000 |
---|---|---|
committer | Graham Barr <gbarr@pobox.com> | 2002-02-25 13:51:19 +0000 |
commit | 930a0d7faf2924f6fafe008696f83566d1c795ec (patch) | |
tree | f4d721df712f82318a0832365fc4e05370b2995e | |
parent | d4b7c54c430515f74ec4b2284026b720424363e7 (diff) | |
download | perl-libnet-930a0d7faf2924f6fafe008696f83566d1c795ec.tar.gz |
t/netrc.t
- Fix RE context
-rw-r--r-- | t/netrc.t | 6 |
1 files changed, 4 insertions, 2 deletions
@@ -55,7 +55,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; @@ -63,7 +64,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 { skip("testing as root",2); } |