Closed p5pRT closed 20 years ago
Perlbug is broken?
Message RFC822: Envelope-to: mstevens@wildcat.imaginet.co.uk Received: from tmtowtdi.perl.org [209.85.3.25] by wildcat.imaginet.co.uk with smtp (Exim 2.05 #1 (Debian)) id 12Za16-0004ej-00; Mon, 27 Mar 2000 14:57:16 +0100 Received: (qmail 21898 invoked for bounce); 27 Mar 2000 13:57:09 -0000 Date: 27 Mar 2000 13:57:09 -0000 From: MAILER-DAEMON@tmtowtdi.perl.org To: mstevens@wildcat.imaginet.co.uk Subject: failure notice Message-Id: E12Za16-0004ej-00@wildcat.imaginet.co.uk
Hi. This is the qmail-send program at tmtowtdi.perl.org. I'm afraid I wasn't able to deliver your message to the following addresses. This is a permanent error; I've given up. Sorry it didn't work out.
richard-perlbug@tmtowtdi.perl.org: Sorry, no mailbox here by that name. (#5.1.1)
--- Below this line is a copy of the message.
Return-Path: mstevens@wildcat.imaginet.co.uk Received: (qmail 21895 invoked by uid 508); 27 Mar 2000 13:57:09 -0000 Delivered-To: perlmail-perlbug@perl.org Received: (qmail 21892 invoked from network); 27 Mar 2000 13:57:04 -0000 Received: from chthon.perl.com (207.174.18.70) by tmtowtdi.perl.org with SMTP; 27 Mar 2000 13:57:04 -0000 Received: from mail.imaginet.co.uk (mail.imaginet.co.uk [194.168.150.4]) by chthon.perl.com (8.9.3/8.9.1) with ESMTP id GAA14202 for perlbug@perl.com; Mon, 27 Mar 2000 06:56:57 -0700 (MST) Received: from wildcat.imaginet.co.uk ([194.168.150.34] ident=mail) by mail.imaginet.co.uk with esmtp (Exim 2.05 #1) id 12Za0j-0002re-00; Mon, 27 Mar 2000 14:56:53 +0100 Received: from mstevens by wildcat.imaginet.co.uk with local (Exim 2.05 #1 (Debian)) id 12Za0j-0004eI-00; Mon, 27 Mar 2000 14:56:53 +0100 To: perlbug@perl.com Subject: File::Spec 0.8 fails tests on perl 5.004_04 Cc: mstevens@imaginet.co.uk Message-Id: E12Za0j-0004eI-00@wildcat.imaginet.co.uk From: Michael Stevens mstevens@wildcat.imaginet.co.uk Date: Mon, 27 Mar 2000 14:56:53 +0100
This is a bug report for perl from mstevens@wildcat.imaginet.co.uk, generated with the help of perlbug 1.28 running under perl v5.6.0.
[Please enter your report here]
The latest CPAN File::Spec (0.8) fails to pass it's own tests on 5.004_04:
CPAN.pm: Going to build R/RB/RBS/File-Spec-0.8.tar.gz
t/filespec.t 2 512 ?? ?? % ?? Failed 1/2 test scripts, 50.00% okay. 0/1 subtests failed, 100.00% okay. make: *** [test_dynamic] Error 2 /usr/bin/make test -- NOT OK Running make install make test had returned bad status, won't install without force
The following patch at least makes the code syntactically correct, but it still fails it's tests under 5.004_04 even with these patches applied:
--cut here-- diff -urN File-Spec-0.8.orig/Spec/VMS.pm File-Spec-0.8/Spec/VMS.pm --- File-Spec-0.8.orig/Spec/VMS.pm Mon Mar 27 14:48:45 2000 +++ File-Spec-0.8/Spec/VMS.pm Mon Mar 27 14:53:28 2000 @@ -400,15 +400,20 @@ }
# Split up paths
my ( undef, $path_directories, $path_file ) =
my ( $dummy1, $path_directories, $path_file ) = $self->splitpath( $path, 1 ) ;
$dummy1 = undef;
$path_directories = $1 if $path_directories =~ /^[(.*)]\z/s ;
my ( undef, $base_directories, undef ) =
my ( $dummy2, $base_directories, $dummy3) = $self->splitpath( $base, 1 ) ;
$dummy2 = undef;
$dummy3 = undef;
$base_directories = $1 if $base_directories =~ /^[(.*)]\z/s ;
@@ -458,11 +463,15 @@ }
# Split up paths
my ( undef, $path_directories, $path_file ) =
my ( $dummy1, $path_directories, $path_file ) = $self->splitpath( $path ) ;
my ( $base_volume, $base_directories, undef ) =
$dummy1 = undef;
my ( $base_volume, $base_directories, $dummy2) = $self->splitpath( $base ) ;
$dummy2 = undef;
$path_directories = '' if $path_directories eq '[]' ||
$path_directories eq '<>';
diff -urN File-Spec-0.8.orig/Spec/Win32.pm File-Spec-0.8/Spec/Win32.pm --- File-Spec-0.8.orig/Spec/Win32.pm Mon Mar 27 14:48:45 2000 +++ File-Spec-0.8/Spec/Win32.pm Mon Mar 27 14:52:09 2000 @@ -293,9 +293,12 @@ my ( $path_volume, $path_directories, $path_file ) = $self->splitpath( $path, 1 ) ;
my ( undef, $base_directories, undef ) =
my ( $dummy1, $base_directories, $dummy2 ) = $self->splitpath( $base, 1 ) ;
$dummy1 = undef;
$dummy2 = undef;
my @pathchunks = $self->splitdir( $path_directories ); my @basechunks = $self->splitdir( $base_directories ); @@ -354,6 +357,7 @@ On systems that have a grammar that indicates filenames, this ignores the $base filename as well. Otherwise all path components are assumed to be directories. +H
If $path is absolute, it is cleaned up and returned using L</canonpath()>.
@@ -378,11 +382,15 @@ $base = $self->canonpath( $base ) ; }
my ( undef, $path_directories, $path_file ) =
my ( $dummy, $path_directories, $path_file ) = $self->splitpath( $path, 1 ) ;
my ( $base_volume, $base_directories, undef ) =
$dummy = undef;
my ( $base_volume, $base_directories, $dummy2) = $self->splitpath( $base, 1 ) ;
$dummy2 = undef;
$path = $self->catpath(
$base_volume,
--cut here--
Site configuration information for perl v5.6.0:
Configured by mstevens at Thu Mar 23 11:47:14 GMT 2000.
Summary of my perl5 (revision 5.0 version 6 subversion 0) configuration: Platform: osname=linux, osvers=2.2.14, archname=i586-linux uname='linux wildcat 2.2.14 #2 wed mar 1 14:08:20 gmt 2000 i586 unknown ' config_args='-de' hint=recommended, useposix=true, d_sigaction=define usethreads=undef use5005threads=undef useithreads=undef usemultiplicity=undef useperlio=undef d_sfio=undef uselargefiles=define use64bitint=undef use64bitall=undef uselongdouble=undef usesocks=undef Compiler: cc='cc', optimize='-O2', gccversion=2.95.2 19990906 (prerelease) cppflags='-fno-strict-aliasing -I/usr/local/include' ccflags ='-fno-strict-aliasing -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64' stdchar='char', d_stdstdio=define, usevfork=false intsize=4, longsize=4, ptrsize=4, doublesize=8 d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=12 ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='off_t', lseeksize=8 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 -ldbm -ldb -ldl -lm -lc -lposix -lcrypt libc=/lib/libc-2.1.2.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:
@INC for perl v5.6.0: /usr/local/lib/perl5/5.6.0/i586-linux /usr/local/lib/perl5/5.6.0 /usr/local/lib/perl5/site_perl/5.6.0/i586-linux /usr/local/lib/perl5/site_perl/5.6.0 /usr/local/lib/perl5/site_perl .
Environment for perl v5.6.0: HOME=/home/mstevens LANG (unset) LANGUAGE (unset) LD_LIBRARY_PATH (unset) LOGDIR (unset) PATH=/home/mstevens/bin:/usr/local/bin:/usr/local/bin:/usr/bin:/bin:/usr/bin/X11:/usr/games:/sbin:/usr/sbin:/opt/bin PERL_BADLANG (unset) SHELL=/usr/bin/zsh
'fixed in latest release of File::Spec\, as far as I can tell. And it\'s an ancient release. And if I can\'t close bugs I reported who can?\n'
Migrated from rt.perl.org#2736 (status was 'resolved')
Searchable as RT2736$