DragonflyBSD is a BSD too

[perl5.git] / lib / Test / Builder.pm

diff --git a/lib/Test/Builder.pm b/lib/Test/Builder.pm
index ee7f8d3..b4e6371 100644 (file)
--- a/lib/Test/Builder.pm
+++ b/lib/Test/Builder.pm
@@ -8,7 +8,7 @@ $^C ||= 0;
 
 use strict;
 use vars qw($VERSION);
-$VERSION = '0.70';
+$VERSION = '0.72';
 $VERSION = eval $VERSION;    # make the alpha version come out as a number
 
 # Make Test::Builder thread-safe for ithreads.
@@ -983,6 +983,7 @@ DIAGNOSTIC
 
 # I'm not ready to publish this.  It doesn't deal with array return
 # values from the code or context.
+
 =begin private
 
 =item B<_try>
@@ -1025,8 +1026,8 @@ sub is_fh {
     my $maybe_fh = shift;
     return 0 unless defined $maybe_fh;
 
-    return 1 if ref $maybe_fh  eq 'GLOB'; # its a glob
-    return 1 if ref \$maybe_fh eq 'GLOB'; # its a glob ref
+    return 1 if ref $maybe_fh  eq 'GLOB'; # its a glob ref
+    return 1 if ref \$maybe_fh eq 'GLOB'; # its a glob
 
     return eval { $maybe_fh->isa("IO::Handle") } ||
            # 5.5.4's tied() and can() doesn't like getting undef