Sorry for submitting on a different machine...I no longer
have access
to the machine that I encountered this problem on.
Here's the version info.
VMS (perl, v5.8.1 built for VMS_AXP)
On 4/30/07, Craig Berry <craig.a.berry gmail.com> wrote:
> On 4/30/07, via RT swkronenfeld gmail. com
<perlbug-followupperl.org> wrote:
> > # New Ticket Created by swkronenfeldgmail.com
> > # Please include the string: [perl #42829]
> > # in the subject line of all future correspondence
about this issue.
> > # <URL: h
ttp://rt.perl.org/rt3/Ticket/Display.html?id=42829 >
> >
> >
> >
> > This is a bug report for perl from
swkronenfeldgmail.com,
> > generated with the help of perlbug 1.35 running
under perl v5.8.6.
>
> Please confirm that you are actually using
File::Spec::VMS from Perl
> 5.8.6 on Linux. If not, please report the Perl and OS
versions where
> you observe the problem.
>
> >
> >
> >
------------------------------------------------------------
-----
> > [Please enter your report here]
> >
> > Whenever my path length is a multiple of 8 + 1 (or
a multiple of 8+3 if you count the brackets), i.e. 9, 17,
23, the path is formed incorrectly (as shown below). It
discards the second argument and forms a file path based on
the first argument only.
> >
> > my $path = "[DIR.";
> > my $tmp = "";
> > for(my $x=0; $x<60; $x++) {
> > $tmp .= "a";
> > my $tmp2 = $path . $tmp . "]";
> > print File::Spec->catfile($tmp2,
"file") . "n";
> > }
> >
> > -----------------------------
> > $ perl test.pl
> > USERS:[DIR.a]file
> > USERS:[DIR.aa]file
> > USERS:[DIR.aaa]file
> > USERS:[DIR.aaaa]file
> > USERS:[DIR]aaaaa
> > USERS:[DIR.aaaaaa]file
> > USERS:[DIR.aaaaaaa]file
> > USERS:[DIR.aaaaaaaa]file
> > USERS:[DIR.aaaaaaaaa]file
> > USERS:[DIR.aaaaaaaaaa]file
> > USERS:[DIR.aaaaaaaaaaa]file
> > USERS:[DIR.aaaaaaaaaaaa]file
> > USERS:[DIR]aaaaaaaaaaaaa
> > USERS:[DIR.aaaaaaaaaaaaaa]file
> > USERS:[DIR.aaaaaaaaaaaaaaa]file
> > USERS:[DIR.aaaaaaaaaaaaaaaa]file
>
> In the current development version of Perl (blead31105) on
OpenVMS
> Alpha v8.3, this bug does not appear to be present:
>
> $ perl test.pl
> D0:[DIR.a]file
> D0:[DIR.aa]file
> D0:[DIR.aaa]file
> D0:[DIR.aaaa]file
> D0:[DIR.aaaaa]file
> D0:[DIR.aaaaaa]file
> D0:[DIR.aaaaaaa]file
> D0:[DIR.aaaaaaaa]file
> D0:[DIR.aaaaaaaaa]file
> D0:[DIR.aaaaaaaaaa]file
> D0:[DIR.aaaaaaaaaaa]file
> D0:[DIR.aaaaaaaaaaaa]file
> D0:[DIR.aaaaaaaaaaaaa]file
> D0:[DIR.aaaaaaaaaaaaaa]file
> D0:[DIR.aaaaaaaaaaaaaaa]file
> D0:[DIR.aaaaaaaaaaaaaaaa]file
> <snip>
>
> > I debugged this and found the following:
> >
> > There is a bug in the function unixify (in
VMS::Filespec). A control character is added to the end of
certain length paths:
> >
> > 47: my($npath) = unixify($path);
> > DB<7> x $path 0 '[DIR.aaaaa]'
> > DB<8> s
File::Spec::VMS::eliminate_macros(/perl_root/lib/File/Spec/V
MS.pm:48):
> > 48: my($complex) = 0;
> > DB<8> x $npath 0
"/USERS/DIR/aaaaac" # <---- What's
that c doing there?!
> >
> > As opposed to
> >
> > 47: my($npath) = unixify($path);
> > DB<9> x $path 0 '[DIR.aaaaaaa]'
> > DB<10> s
File::Spec::VMS::eliminate_macros(/perl_root/lib/File/Spec/V
MS.pm:48):
> > 48: my($complex) = 0;
> > DB<10> x $npath 0 '/USERS/DIR/aaaaaaa/'
> >
> >
> > [Please do not change anything below this line]
> >
------------------------------------------------------------
-----
> > ---
> > Flags:
> > category=utilities
> > severity=medium
> > ---
> > Site configuration information for perl v5.8.6:
> >
> > Configured by john at Wed Dec 8 16:58:35 CST
2004.
> >
> > Summary of my perl5 (revision 5 version 8
subversion 6) configuration:
> > Platform:
> > osname=linux, osvers=2.4.21-15.0.4.tlsmp,
archname=i686-linux-64int
> > uname='linux thugbert.cs.wisc.edu
2.4.21-15.0.4.tlsmp #1 smp tue aug 3 23:02:48 edt 2004 i686
unknown '
> > config_args=''
> > hint=recommended, useposix=true,
d_sigaction=define
> > usethreads=undef use5005threads=undef
useithreads=undef usemultiplicity=undef
> > useperlio=define d_sfio=undef
uselargefiles=define usesocks=undef
> > use64bitint=define use64bitall=undef
uselongdouble=undef
> > usemymalloc=n, bincompat5005=undef
> > Compiler:
> > cc='gcc', ccflags ='-fno-strict-aliasing -pipe
-I/usr/local/include -D_LARGEFILE_SOURCE
-D_FILE_OFFSET_BITS=64 -I/usr/include/gdbm',
> > optimize='-O2',
> > cppflags='-fno-strict-aliasing -pipe
-I/usr/local/include -I/usr/include/gdbm'
> > ccversion='', gccversion='3.4.1',
gccosandvers=''
> > intsize=4, longsize=4, ptrsize=4,
doublesize=8, byteorder=12345678
> > d_longlong=define, longlongsize=8,
d_longdbl=define, longdblsize=12
> > ivtype='long long', ivsize=8, nvtype='double',
nvsize=8, Off_t='off_t', lseeksize=8
> > alignbytes=4, prototype=define
> > Linker and Libraries:
> > ld='gcc', ldflags =' -L/usr/local/lib'
> > libpth=/usr/local/lib /lib /usr/lib
> > libs=-lnsl -lgdbm -ldb -ldl -lm -lcrypt -lutil
-lc
> > perllibs=-lnsl -ldl -lm -lcrypt -lutil -lc
> > libc=/lib/libc-2.3.2.so, so=so,
useshrplib=false, libperl=libperl.a
> > gnulibc_version='2.3.2'
> > Dynamic Linking:
> > dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef,
ccdlflags='-Wl,-E'
> > cccdlflags='-fpic', lddlflags='-shared
-L/usr/local/lib'
> >
> > Locally applied patches:
> >
> >
> > ---
> > INC for perl v5.8.6:
> >
/s/perl-5.8.6/i386_tao10/lib/5.8.6/i686-linux-64int
> > /s/perl-5.8.6/i386_tao10/lib/5.8.6
> >
/s/perl-5.8.6/i386_tao10/lib/site_perl/5.8.6/i686-linux-64in
t
> > /s/perl-5.8.6/i386_tao10/lib/site_perl/5.8.6
> > /s/perl-5.8.6/i386_tao10/lib/site_perl
> > .
> >
> > ---
> > Environment for perl v5.8.6:
> > HOME=/u/k/r/kronenfe
> > LANG=en_US.UTF-8
> > LANGUAGE (unset)
> > LD_LIBRARY_PATH (unset)
> > LOGDIR (unset)
> >
PATH=/u/k/r/kronenfe/bin:/s/std/bin:/usr/afsws/bin:/opt/SUNW
spro/bin:/usr/ccs/bin:/usr/ucb:/bin:/usr/bin:/usr/stat/bin:/
usr/X11R6/bin:/unsup/condor/bin:/unsup/condor/sbin:/p/condor
/home/bin:/p/condor/workspaces/vdt/bin:/u/k/r/kronenfe/ruby/
ruby/bin:/u/k/r/kronenfe/ruby/ruby/lib/ruby/gems/bin
> > PERL_BADLANG (unset)
> > SHELL=/bin/bash
> >
> >
>
|