Skip Menu |

This queue is for tickets about the IO CPAN distribution.

Report information
The Basics
Id: 19884
Status: resolved
Priority: 0/
Queue: IO

Owner: Nobody in particular
Requestors: leadley [...]

Bug Information
Severity: Normal
Broken in: 1.2301
Fixed in: (no value)

Subject: Pre-5.8 C syntax bug
Download (untitled) / with headers
text/plain 4.1k
Problem ------- C syntax problem compiling IO.xs w/ perl 5.6.1 (and probably any perl <5.8). Workaround ---------- Add {} to put definition of "pos" at head of block. Scope isn't an issue. {417} % diff -c IO.xs* *** IO.xs Tue Jun 13 15:03:57 2006 --- IO.xs.OLD Tue Jun 13 15:03:23 2006 *************** *** 135,141 **** #ifdef PerlIO ST(0) = sv_newmortal(); #if PERL_VERSION < 8 - { Fpos_t pos; if (PerlIO_getpos(handle, &pos) != 0) { ST(0) = &PL_sv_undef; --- 135,140 ---- *************** *** 143,149 **** else { sv_setpvn(ST(0), (char *)&pos, sizeof(Fpos_t)); } - } #else if (PerlIO_getpos(handle, ST(0)) != 0) { ST(0) = &PL_sv_undef; --- 142,147 ---- {418} % Example of problem ------------------ {392} % perl Makefile.PL Checking if your kit is complete... Looks good Writing Makefile for IO {393} % make cp IO/ blib/lib/IO/ cp IO/Socket/ blib/lib/IO/Socket/ cp IO/ blib/lib/IO/ cp IO/ blib/lib/IO/ cp IO/ blib/lib/IO/ cp IO/ blib/lib/IO/ cp IO/Socket/ blib/lib/IO/Socket/ cp IO/ blib/lib/IO/ cp blib/lib/ cp IO/ blib/lib/IO/ cp IO/ blib/lib/IO/ /usr/home/deltasq/usr/local/bin/perl -I/usr/local/lib/perl5/5.6.1/i386-freebsd -I/usr/local/lib/perl5/5.6.1 /usr/local/lib/perl5/5.6.1/ExtUtils/xsubpp -typemap /usr/local/lib/perl5/5.6.1/ExtUtils/typemap IO.xs > IO.xsc && mv IO.xsc IO.c cc -c -fno-strict-aliasing -I/usr/local/include -O -DVERSION=\"1.23\" -DXS_VERSION=\"1.23\" -DPIC -fpic -I/usr/local/lib/perl5/5.6.1/i386-freebsd/CORE IO.c IO.xs: In function `XS_IO__Seekable_getpos': IO.xs:138: syntax error before `pos' IO.xs:139: `pos' undeclared (first use in this function) IO.xs:139: (Each undeclared identifier is reported only once IO.xs:139: for each function it appears in.) *** Error code 1 Stop in /usr/home/deltasq/tmp/x.done/IO-1.2301/IO-1.2301. {394} % Environment in which problem occurred ------------------------------------- {396} % uname -a FreeBSD 4.7-RELEASE-p28 FreeBSD 4.7-RELEASE-p28 #40: Fri Mar 11 14:16:49 MST 2005 root@fc2:/usr/src/sys/compile/VKERN i386 {397} % perl -V Summary of my perl5 (revision 5.0 version 6 subversion 1) configuration: Platform: osname=freebsd, osvers=4.4-release, archname=i386-freebsd uname='freebsd fc 4.4-release freebsd 4.4-release #0: wed dec 12 14:53:54 mst 2001 root@fc:usrsrcsyscompilevkern i386 ' config_args='' hint=recommended, useposix=true, d_sigaction=define usethreads=undef use5005threads=undef useithreads=undef usemultiplicity=undef useperlio=undef d_sfio=undef uselargefiles=define usesocks=undef use64bitint=undef use64bitall=undef uselongdouble=undef Compiler: cc='cc', ccflags ='-fno-strict-aliasing -I/usr/local/include', optimize='-O', cppflags='-fno-strict-aliasing -I/usr/local/include' ccversion='', gccversion='2.95.2 19991024 (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=8 alignbytes=4, usemymalloc=n, prototype=define Linker and Libraries: ld='cc', ldflags ='-Wl,-E -L/usr/local/lib' libpth=/usr/lib /usr/local/lib libs=-lgdbm -lm -lc -lcrypt -liconv -lutil perllibs=-lm -lc -lcrypt -liconv -lutil libc=, so=so, useshrplib=false, libperl=libperl.a Dynamic Linking: dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags=' ' cccdlflags='-DPIC -fpic', lddlflags='-shared -L/usr/local/lib' Characteristics of this binary (from libperl): Compile-time options: USE_LARGE_FILES Built under freebsd Compiled at Jan 10 2002 11:56:19 @INC: /usr/local/lib/perl5/5.6.1/i386-freebsd /usr/local/lib/perl5/5.6.1 /usr/local/lib/perl5/site_perl/5.6.1/i386-freebsd /usr/local/lib/perl5/site_perl/5.6.1 /usr/local/lib/perl5/site_perl /usr/local/lib/perl5/5.00503 /usr/local/lib/site_perl . {398} % -- Scott Leadley <>

This service is sponsored and maintained by Best Practical Solutions and runs on infrastructure.

Please report any issues with to