Skip Menu |

This queue is for tickets about the PathTools CPAN distribution.

Report information
The Basics
Id: 13281
Status: resolved
Priority: 0/
Queue: PathTools

People
Owner: Nobody in particular
Requestors: simon [...] tachyon.net
Cc:
AdminCc:

Bug Information
Severity: Normal
Broken in:
  • 3.00
  • 3.01
  • 3.01_01
  • 3.01_02
  • 3.01_03
  • 3.02
  • 3.03
  • 3.04
  • 3.05
  • 3.06
  • 3.07
  • 3.08
Fixed in: 3.09



Subject: Compile error
Distro: PathTools-3.00 to PathTools-3.09 Perl version: This is perl, version 5.005_03 built for sun4-solaris OS: SunOS jupiter 5.6 Generic_105181-33 sun4u sparc SUNW,Ultra-250 Error: jupiter:/home/simon/PathTools-3.08 --> perl Makefile.PL Checking if your kit is complete... Looks good Writing Makefile for Cwd jupiter:/home/simon/PathTools-3.08 --> make mkdir blib mkdir blib/lib mkdir blib/arch mkdir blib/arch/auto mkdir blib/arch/auto/Cwd mkdir blib/lib/auto mkdir blib/lib/auto/Cwd mkdir blib/man3 cp lib/File/Spec/VMS.pm blib/lib/File/Spec/VMS.pm cp lib/File/Spec/Epoc.pm blib/lib/File/Spec/Epoc.pm cp lib/File/Spec/Functions.pm blib/lib/File/Spec/Functions.pm cp Cwd.pm blib/lib/Cwd.pm cp lib/File/Spec.pm blib/lib/File/Spec.pm cp lib/File/Spec/Cygwin.pm blib/lib/File/Spec/Cygwin.pm cp lib/File/Spec/Mac.pm blib/lib/File/Spec/Mac.pm cp lib/File/Spec/Win32.pm blib/lib/File/Spec/Win32.pm cp lib/File/Spec/Unix.pm blib/lib/File/Spec/Unix.pm cp lib/File/Spec/OS2.pm blib/lib/File/Spec/OS2.pm /usr/local/bin/perl -I/usr/local/lib/perl5/5.00503/sun4-solaris -I/usr/local/lib/perl5/5.00503 /usr/local/lib/perl5/5.00503/ExtUtils/xsubpp -typemap /usr/local/lib/perl5/5.00503/ExtUtils/typemap Cwd.xs >xstmp.c && mv xstmp.c Cwd.c gcc -c -I/usr/local/include -O -DVERSION=\"3.08\" -DXS_VERSION=\"3.08\" -fPIC -I/usr/local/lib/perl5/5.00503/sun4-solaris/CORE Cwd.c Cwd.xs: In function `Perl_getcwd_sv': Cwd.xs:272: parse error before `struct' Cwd.xs:280: `statbuf' undeclared (first use in this function) Cwd.xs:280: (Each undeclared identifier is reported only once Cwd.xs:280: for each function it appears in.) Cwd.xs:284: `orig_cdev' undeclared (first use in this function) Cwd.xs:285: `orig_cino' undeclared (first use in this function) Cwd.xs:286: `cdev' undeclared (first use in this function) Cwd.xs:287: `cino' undeclared (first use in this function) Cwd.xs:290: `odev' undeclared (first use in this function) Cwd.xs:291: `oino' undeclared (first use in this function) Cwd.xs:306: `dir' undeclared (first use in this function) Cwd.xs:310: `dp' undeclared (first use in this function) Cwd.xs:314: `namelen' undeclared (first use in this function) Cwd.xs:325: `tdev' undeclared (first use in this function) Cwd.xs:326: `tino' undeclared (first use in this function) Cwd.xs:336: `pathlen' undeclared (first use in this function) make: *** [Cwd.o] Error 1 Solution: jupiter:/home/simon/PathTools-3.08 --> diff -c Cwd.xs Cwd.xs.orig *** Cwd.xs Thu Jun 16 20:40:09 2005 --- Cwd.xs.orig Thu Jun 16 20:39:46 2005 *************** *** 245,250 **** --- 245,254 ---- { #ifndef PERL_MICRO + #ifndef INCOMPLETE_TAINTS + SvTAINTED_on(sv); + #endif + #ifdef HAS_GETCWD { char buf[MAXPATHLEN]; *************** *** 271,280 **** DIR *dir; Direntry_t *dp; - #ifndef INCOMPLETE_TAINTS - SvTAINTED_on(sv); - #endif - (void)SvUPGRADE(sv, SVt_PV); if (PerlLIO_lstat(".", &statbuf) < 0) { --- 275,280 ----
#include "EXTERN.h" #include "perl.h" #include "XSUB.h" #define NEED_sv_2pv_nolen #include "ppport.h" #ifdef I_UNISTD # include <unistd.h> #endif /* The realpath() implementation from OpenBSD 2.9 (realpath.c 1.4) * Renamed here to bsd_realpath() to avoid library conflicts. * --jhi 2000-06-20 */ /* See * http://www.xray.mpe.mpg.de/mailing-lists/perl5-porters/2004-11/msg00979.html * for the details of why the BSD license is compatible with the * AL/GPL standard perl license. */ /* * Copyright (c) 1994 * The Regents of the University of California. All rights reserved. * * This code is derived from software contributed to Berkeley by * Jan-Simon Pendry. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * 3. Neither the name of the University nor the names of its contributors * may be used to endorse or promote products derived from this software * without specific prior written permission. * * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF * SUCH DAMAGE. */ #if defined(LIBC_SCCS) && !defined(lint) static char *rcsid = "$OpenBSD: realpath.c,v 1.4 1998/05/18 09:55:19 deraadt Exp $"; #endif /* LIBC_SCCS and not lint */ /* OpenBSD system #includes removed since the Perl ones should do. --jhi */ #ifndef MAXSYMLINKS #define MAXSYMLINKS 8 #endif /* * char *realpath(const char *path, char resolved_path[MAXPATHLEN]); * * Find the real name of path, by removing all ".", ".." and symlink * components. Returns (resolved) on success, or (NULL) on failure, * in which case the path which caused trouble is left in (resolved). */ static char * bsd_realpath(const char *path, char *resolved) { #ifdef VMS dTHX; return Perl_rmsexpand(aTHX_ (char*)path, resolved, NULL, 0); #else int rootd, serrno; char *p, *q, wbuf[MAXPATHLEN]; int symlinks = 0; /* Save the starting point. */ #ifdef HAS_FCHDIR int fd; if ((fd = open(".", O_RDONLY)) < 0) { (void)strcpy(resolved, "."); return (NULL); } #else char wd[MAXPATHLEN]; if (getcwd(wd, MAXPATHLEN - 1) == NULL) { (void)strcpy(resolved, "."); return (NULL); } #endif /* * Find the dirname and basename from the path to be resolved. * Change directory to the dirname component. * lstat the basename part. * if it is a symlink, read in the value and loop. * if it is a directory, then change to that directory. * get the current directory name and append the basename. */ (void)strncpy(resolved, path, MAXPATHLEN - 1); resolved[MAXPATHLEN - 1] = '\0'; loop: q = strrchr(resolved, '/'); if (q != NULL) { p = q + 1; if (q == resolved) q = "/"; else { do { --q; } while (q > resolved && *q == '/'); q[1] = '\0'; q = resolved; } if (chdir(q) < 0) goto err1; } else p = resolved; #if defined(HAS_LSTAT) && defined(HAS_READLINK) && defined(HAS_SYMLINK) { struct stat sb; /* Deal with the last component. */ if (lstat(p, &sb) == 0) { if (S_ISLNK(sb.st_mode)) { int n; if (++symlinks > MAXSYMLINKS) { errno = ELOOP; goto err1; } n = readlink(p, resolved, MAXPATHLEN-1); if (n < 0) goto err1; resolved[n] = '\0'; goto loop; } if (S_ISDIR(sb.st_mode)) { if (chdir(p) < 0) goto err1; p = ""; } } } #endif /* * Save the last component name and get the full pathname of * the current directory. */ (void)strcpy(wbuf, p); if (getcwd(resolved, MAXPATHLEN) == 0) goto err1; /* * Join the two strings together, ensuring that the right thing * happens if the last component is empty, or the dirname is root. */ if (resolved[0] == '/' && resolved[1] == '\0') rootd = 1; else rootd = 0; if (*wbuf) { if (strlen(resolved) + strlen(wbuf) + (1 - rootd) + 1 > MAXPATHLEN) { errno = ENAMETOOLONG; goto err1; } if (rootd == 0) (void)strcat(resolved, "/"); (void)strcat(resolved, wbuf); } /* Go back to where we came from. */ #ifdef HAS_FCHDIR if (fchdir(fd) < 0) { serrno = errno; goto err2; } #else if (chdir(wd) < 0) { serrno = errno; goto err2; } #endif /* It's okay if the close fails, what's an fd more or less? */ #ifdef HAS_FCHDIR (void)close(fd); #endif return (resolved); err1: serrno = errno; #ifdef HAS_FCHDIR (void)fchdir(fd); #else (void)chdir(wd); #endif err2: #ifdef HAS_FCHDIR (void)close(fd); #endif errno = serrno; return (NULL); #endif } #ifndef SV_CWD_RETURN_UNDEF #define SV_CWD_RETURN_UNDEF \ sv_setsv(sv, &PL_sv_undef); \ return FALSE #endif #ifndef OPpENTERSUB_HASTARG #define OPpENTERSUB_HASTARG 32 /* Called from OP tree. */ #endif #ifndef dXSTARG #define dXSTARG SV * targ = ((PL_op->op_private & OPpENTERSUB_HASTARG) \ ? PAD_SV(PL_op->op_targ) : sv_newmortal()) #endif #ifndef XSprePUSH #define XSprePUSH (sp = PL_stack_base + ax - 1) #endif #ifndef SV_CWD_ISDOT #define SV_CWD_ISDOT(dp) \ (dp->d_name[0] == '.' && (dp->d_name[1] == '\0' || \ (dp->d_name[1] == '.' && dp->d_name[2] == '\0'))) #endif #ifndef getcwd_sv /* Taken from perl 5.8's util.c */ #define getcwd_sv(a) Perl_getcwd_sv(aTHX_ a) int Perl_getcwd_sv(pTHX_ register SV *sv) { #ifndef PERL_MICRO #ifdef HAS_GETCWD { char buf[MAXPATHLEN]; /* Some getcwd()s automatically allocate a buffer of the given * size from the heap if they are given a NULL buffer pointer. * The problem is that this behaviour is not portable. */ if (getcwd(buf, sizeof(buf) - 1)) { STRLEN len = strlen(buf); sv_setpvn(sv, buf, len); return TRUE; } else { sv_setsv(sv, &PL_sv_undef); return FALSE; } } #else Stat_t statbuf; int orig_cdev, orig_cino, cdev, cino, odev, oino, tdev, tino; int namelen, pathlen=0; DIR *dir; Direntry_t *dp; #ifndef INCOMPLETE_TAINTS SvTAINTED_on(sv); #endif (void)SvUPGRADE(sv, SVt_PV); if (PerlLIO_lstat(".", &statbuf) < 0) { SV_CWD_RETURN_UNDEF; } orig_cdev = statbuf.st_dev; orig_cino = statbuf.st_ino; cdev = orig_cdev; cino = orig_cino; for (;;) { odev = cdev; oino = cino; if (PerlDir_chdir("..") < 0) { SV_CWD_RETURN_UNDEF; } if (PerlLIO_stat(".", &statbuf) < 0) { SV_CWD_RETURN_UNDEF; } cdev = statbuf.st_dev; cino = statbuf.st_ino; if (odev == cdev && oino == cino) { break; } if (!(dir = PerlDir_open("."))) { SV_CWD_RETURN_UNDEF; } while ((dp = PerlDir_read(dir)) != NULL) { #ifdef DIRNAMLEN namelen = dp->d_namlen; #else namelen = strlen(dp->d_name); #endif /* skip . and .. */ if (SV_CWD_ISDOT(dp)) { continue; } if (PerlLIO_lstat(dp->d_name, &statbuf) < 0) { SV_CWD_RETURN_UNDEF; } tdev = statbuf.st_dev; tino = statbuf.st_ino; if (tino == oino && tdev == odev) { break; } } if (!dp) { SV_CWD_RETURN_UNDEF; } if (pathlen + namelen + 1 >= MAXPATHLEN) { SV_CWD_RETURN_UNDEF; } SvGROW(sv, pathlen + namelen + 1); if (pathlen) { /* shift down */ Move(SvPVX(sv), SvPVX(sv) + namelen + 1, pathlen, char); } /* prepend current directory to the front */ *SvPVX(sv) = '/'; Move(dp->d_name, SvPVX(sv)+1, namelen, char); pathlen += (namelen + 1); #ifdef VOID_CLOSEDIR PerlDir_close(dir); #else if (PerlDir_close(dir) < 0) { SV_CWD_RETURN_UNDEF; } #endif } if (pathlen) { SvCUR_set(sv, pathlen); *SvEND(sv) = '\0'; SvPOK_only(sv); if (PerlDir_chdir(SvPVX(sv)) < 0) { SV_CWD_RETURN_UNDEF; } } if (PerlLIO_stat(".", &statbuf) < 0) { SV_CWD_RETURN_UNDEF; } cdev = statbuf.st_dev; cino = statbuf.st_ino; if (cdev != orig_cdev || cino != orig_cino) { Perl_croak(aTHX_ "Unstable directory path, " "current directory changed unexpectedly"); } return TRUE; #endif #else return FALSE; #endif } #endif MODULE = Cwd PACKAGE = Cwd PROTOTYPES: ENABLE void fastcwd() PROTOTYPE: DISABLE PPCODE: { dXSTARG; getcwd_sv(TARG); XSprePUSH; PUSHTARG; #ifndef INCOMPLETE_TAINTS SvTAINTED_on(TARG); #endif } void abs_path(pathsv=Nullsv) SV *pathsv PROTOTYPE: DISABLE PPCODE: { dXSTARG; char *path; char buf[MAXPATHLEN]; path = pathsv ? SvPV_nolen(pathsv) : (char *)"."; if (bsd_realpath(path, buf)) { sv_setpvn(TARG, buf, strlen(buf)); SvPOK_only(TARG); SvTAINTED_on(TARG); } else sv_setsv(TARG, &PL_sv_undef); XSprePUSH; PUSHTARG; #ifndef INCOMPLETE_TAINTS SvTAINTED_on(TARG); #endif } #ifdef WIN32 void getdcwd(...) PPCODE: { dXSTARG; int drive; char *dir; /* Drive 0 is the current drive, 1 is A:, 2 is B:, 3 is C: and so on. */ if ( items == 0 || (items == 1 && (!SvOK(ST(0)) || (SvPOK(ST(0)) && !SvCUR(ST(0)))))) drive = 0; else if (items == 1 && SvPOK(ST(0)) && SvCUR(ST(0)) && isALPHA(SvPVX(ST(0))[0])) drive = toUPPER(SvPVX(ST(0))[0]) - 'A' + 1; else croak("Usage: getdcwd(DRIVE)"); New(0,dir,MAXPATHLEN,char); if (_getdcwd(drive, dir, MAXPATHLEN)) { sv_setpvn(TARG, dir, strlen(dir)); SvPOK_only(TARG); } else sv_setsv(TARG, &PL_sv_undef); Safefree(dir); XSprePUSH; PUSHTARG; #ifndef INCOMPLETE_TAINTS SvTAINTED_on(TARG); #endif } #endif
From: simon [...] tachyon.net
Correction: This bug seems to be fixed in 3.09. So it's only present from 3.00 to 3.08. Sorry about that. [guest - Thu Jun 16 16:42:29 2005]: Show quoted text
> Distro: > PathTools-3.00 to PathTools-3.09 > Perl version: > This is perl, version 5.005_03 built for sun4-solaris > OS: > SunOS jupiter 5.6 Generic_105181-33 sun4u sparc SUNW,Ultra-250 > > Error: > > jupiter:/home/simon/PathTools-3.08 --> perl Makefile.PL > Checking if your kit is complete... > Looks good > Writing Makefile for Cwd > jupiter:/home/simon/PathTools-3.08 --> make > mkdir blib > mkdir blib/lib > mkdir blib/arch > mkdir blib/arch/auto > mkdir blib/arch/auto/Cwd > mkdir blib/lib/auto > mkdir blib/lib/auto/Cwd > mkdir blib/man3 > cp lib/File/Spec/VMS.pm blib/lib/File/Spec/VMS.pm > cp lib/File/Spec/Epoc.pm blib/lib/File/Spec/Epoc.pm > cp lib/File/Spec/Functions.pm blib/lib/File/Spec/Functions.pm > cp Cwd.pm blib/lib/Cwd.pm > cp lib/File/Spec.pm blib/lib/File/Spec.pm > cp lib/File/Spec/Cygwin.pm blib/lib/File/Spec/Cygwin.pm > cp lib/File/Spec/Mac.pm blib/lib/File/Spec/Mac.pm > cp lib/File/Spec/Win32.pm blib/lib/File/Spec/Win32.pm > cp lib/File/Spec/Unix.pm blib/lib/File/Spec/Unix.pm > cp lib/File/Spec/OS2.pm blib/lib/File/Spec/OS2.pm > /usr/local/bin/perl -I/usr/local/lib/perl5/5.00503/sun4-solaris > -I/usr/local/lib/perl5/5.00503 > /usr/local/lib/perl5/5.00503/ExtUtils/xsubpp -typemap > /usr/local/lib/perl5/5.00503/ExtUtils/typemap Cwd.xs >xstmp.c && mv > xstmp.c Cwd.c > gcc -c -I/usr/local/include -O -DVERSION=\"3.08\" > -DXS_VERSION=\"3.08\" -fPIC > -I/usr/local/lib/perl5/5.00503/sun4-solaris/CORE Cwd.c > Cwd.xs: In function `Perl_getcwd_sv': > Cwd.xs:272: parse error before `struct' > Cwd.xs:280: `statbuf' undeclared (first use in this function) > Cwd.xs:280: (Each undeclared identifier is reported only once > Cwd.xs:280: for each function it appears in.) > Cwd.xs:284: `orig_cdev' undeclared (first use in this function) > Cwd.xs:285: `orig_cino' undeclared (first use in this function) > Cwd.xs:286: `cdev' undeclared (first use in this function) > Cwd.xs:287: `cino' undeclared (first use in this function) > Cwd.xs:290: `odev' undeclared (first use in this function) > Cwd.xs:291: `oino' undeclared (first use in this function) > Cwd.xs:306: `dir' undeclared (first use in this function) > Cwd.xs:310: `dp' undeclared (first use in this function) > Cwd.xs:314: `namelen' undeclared (first use in this function) > Cwd.xs:325: `tdev' undeclared (first use in this function) > Cwd.xs:326: `tino' undeclared (first use in this function) > Cwd.xs:336: `pathlen' undeclared (first use in this function) > make: *** [Cwd.o] Error 1 > > Solution: > > jupiter:/home/simon/PathTools-3.08 --> diff -c Cwd.xs Cwd.xs.orig > *** Cwd.xs Thu Jun 16 20:40:09 2005 > --- Cwd.xs.orig Thu Jun 16 20:39:46 2005 > *************** > *** 245,250 **** > --- 245,254 ---- > { > #ifndef PERL_MICRO > > + #ifndef INCOMPLETE_TAINTS > + SvTAINTED_on(sv); > + #endif > + > #ifdef HAS_GETCWD > { > char buf[MAXPATHLEN]; > *************** > *** 271,280 **** > DIR *dir; > Direntry_t *dp; > > - #ifndef INCOMPLETE_TAINTS > - SvTAINTED_on(sv); > - #endif > - > (void)SvUPGRADE(sv, SVt_PV); > > if (PerlLIO_lstat(".", &statbuf) < 0) { > --- 275,280 ---- >
No problem, bug is now closed. -Ken