[PATCH] ftmp-mktemp failing

[p5pRT]

Migrated from rt.perl.org#4553 (status was 'resolved')

Searchable as RT4553$

[p5pRT]

From perl@ctweten.amsite.com

Created by crt@kiski.net

File​::Temp is usning Errno incorrectly. The patch is for
bleadperl.

Inline Patch

--- lib/File/Temp.pm.orig	Mon Oct 30 15:20:11 2000
+++ lib/File/Temp.pm	Mon Oct 30 15:39:07 2000
@@ -124,7 +124,7 @@
 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 @@
 
 	# 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 @@
 
 	# 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 ();
 	}

Perl Info

Flags:
    category=library
    severity=high

Site configuration information for perl v5.7.0:

Configured by ctweten at Wed Sep 13 12:35:21 EDT 2000.

Summary of my perl5 (revision 5.0 version 7 subversion 0) configuration:
  Platform:
    osname=linux, osvers=2.2.14-5.0, archname=i686-linux
    uname='linux ctweten 2.2.14-5.0 #1 tue mar 7 21:07:39 est 2000 i686 unknown '
    config_args=''
    hint=previous, useposix=true, d_sigaction=define
    usethreads=undef use5005threads=undef useithreads=undef usemultiplicity=undef
    useperlio=undef d_sfio=undef uselargefiles=undef usesocks=undef
    use64bitint=undef use64bitall=undef uselongdouble=undef
  Compiler:
    cc='cc', ccflags ='-fno-strict-aliasing',
    optimize='-O3',
    cppflags='-fno-strict-aliasing'
    ccversion='', gccversion='egcs-2.91.66 19990314/Linux (egcs-1.1.2 release)', gccosandvers=''
    intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=1234
    d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=12
    ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='off_t', lseeksize=4
    alignbytes=4, usemymalloc=n, prototype=define
  Linker and Libraries:
    ld='cc', ldflags =' -L/usr/local/lib'
    libpth=/usr/local/lib /lib /usr/lib
    libs=-lnsl -lndbm -lgdbm -ldb -ldl -lm -lc -lposix -lcrypt -lutil
    libc=/lib/libc-2.1.3.so, so=so, useshrplib=false, libperl=libperl.a
  Dynamic Linking:
    dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-rdynamic'
    cccdlflags='-fpic', lddlflags='-shared -L/usr/local/lib'

Locally applied patches:
    DEVEL7064


@INC for perl v5.7.0:
    /home/perl/perl/lib/5.7.0/i686-linux
    /home/perl/perl/lib/5.7.0
    /home/perl/perl/lib/site_perl/5.7.0/i686-linux
    /home/perl/perl/lib/site_perl/5.7.0
    /home/perl/perl/lib/site_perl
    .


Environment for perl v5.7.0:
    HOME=/home/perl
    LANG=en_US
    LANGUAGE (unset)
    LD_LIBRARY_PATH (unset)
    LOGDIR (unset)
    PATH=/home/perl/perl/bin:/bin:/usr/bin:/usr/local/bin:/usr/bin/X11:/usr/X11R6/bin:/home/perl/bin:.
    PERL_BADLANG (unset)
    SHELL=/bin/bash

[p5pRT]

From @jhi

On Mon, Oct 30, 2000 at 03​:51​:17PM -0500, Casey Tweten wrote​:

This is a bug report for perl from crt@​kiski.net,
generated with the help of perlbug 1.32 running under perl v5.7.0.

-----------------------------------------------------------------
[Please enter your report here]

File​::Temp is usning Errno incorrectly. The patch is for
bleadperl.

Applied, thanks. Also forwarded to the File​::Temp author Tim Jenness.