From 11d7f64f86584fefbeb7beb3792b3ccd34a45058 Mon Sep 17 00:00:00 2001
From: Casey Tweten <perl@ctweten.amsite.com>
Date: Mon, 30 Oct 2000 10:51:17 -0500
Subject: [PATCH] Use Errno magic.

Subject: [ID 20001030.009] [PATCH] ftmp-mktemp failing
Message-Id: <200010302051.e9UKpHd02194@ctweten.amsite.com>

p4raw-id: //depot/perl@7494
---
 lib/File/Temp.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/lib/File/Temp.pm b/lib/File/Temp.pm
index a351044..e3f8ff6 100644
--- a/lib/File/Temp.pm
+++ b/lib/File/Temp.pm
@@ -124,7 +124,7 @@ use Carp;
 use File::Spec 0.8;
 use File::Path qw/ rmtree /;
 use Fcntl 1.03;
-use Errno qw( EEXIST ENOENT ENOTDIR EINVAL );
+use Errno;
 require VMS::Stdio if $^O eq 'VMS';
 
 # Need the Symbol package if we are running older perl
@@ -443,7 +443,7 @@ sub _gettemp {
 
 	# Error opening file - abort with error
 	# if the reason was anything but EEXIST
-	unless ($! == EEXIST) {
+	unless ($!{EEXIST}) {
 	  carp "File::Temp: Could not create temp file $path: $!";
 	  return ();
 	}
@@ -473,7 +473,7 @@ sub _gettemp {
 
 	# Abort with error if the reason for failure was anything
 	# except EEXIST
-	unless ($! == EEXIST) {
+	unless ($!{EEXIST}) {
 	  carp "File::Temp: Could not create directory $path: $!";
 	  return ();
 	}
-- 
2.7.4