APItest/t/handy.t: Use abbrev. char name in test names

[perl5.git] / cpan / libnet / t / netrc.t

diff --git a/cpan/libnet/t/netrc.t b/cpan/libnet/t/netrc.t
index 1149bb8..e270b36 100644 (file)
--- a/cpan/libnet/t/netrc.t
+++ b/cpan/libnet/t/netrc.t
@@ -6,10 +6,10 @@ use strict;
 use warnings;
 
 BEGIN {
-    if (!eval { require Socket; 1 }) {
+    if (!eval { require Socket }) {
         print "1..0 # no Socket\n"; exit 0;
     }
-    if (ord('A') == 193 && !eval { require Convert::EBCDIC; 1 }) {
+    if (ord('A') == 193 && !eval { require Convert::EBCDIC }) {
         print "1..0 # EBCDIC but no Convert::EBCDIC\n"; exit 0;
     }
 }