Paranoia tweak on #6249.

Subject: Re: [PATCH 5.6.0 IPC/Open3.pm] Allow the use of numeric fd's
Message-ID: <20000625234312.B74147@linguist.dartmouth.edu>

p4raw-id: //depot/cfgperl@6253

diff --git a/lib/IPC/Open3.pm b/lib/IPC/Open3.pm
index facf39c..5078a9a 100644 (file)
--- a/lib/IPC/Open3.pm
+++ b/lib/IPC/Open3.pm
@@ -140,16 +140,16 @@ sub xclose {
     close $_[0] or croak "$Me: close($_[0]) failed: $!";
 }
 
+sub fh_is_fd {
+    return $_[0] =~ /\A=?(\d+)\z/;
+}
+
 sub xfileno {
     my ($fh) = @_;
-    return $1 if $fh =~ /^=?(\d+)$/;  # deal with $fh just being an fd
+    return $1 if =~ /\A=?(\d+)\z/;  # deal with $fh just being an fd
     return fileno $fh;
 }
 
-sub fh_is_fd {
-    return $_[0] =~ /^=?\d+$/;
-}
-
 my $do_spawn = $^O eq 'os2' || $^O eq 'MSWin32';
 
 sub _open3 {