develooper Front page | perl.perl5.porters | Postings from August 2003

[perl #23645] tell with perlio on appended files

Thread Next
Martyn Pearce
August 29, 2003 06:29
[perl #23645] tell with perlio on appended files
Message ID:
# New Ticket Created by  Martyn Pearce 
# Please include the string:  [perl #23645]
# in the subject line of all future correspondence about this issue. 
# <URL: >

This is a bug report for perl from,
generated with the help of perlbug 1.34 running under perl v5.8.0.

[Please enter your report here]

'tell', operating on a file opened with '>>', returns 0 (after opening), and
continues to think in terms of offsets from the original start of the file.

This is is in contrast to say, 5.6.1, which thinks in terms of the "real" file
position.  Witness:

[martyn:0]$ ls -l /tmp/mime-magic
-rw-r--r--    1 martyn   martyn     145088 Aug 29 11:30 /tmp/mime-magic

[martyn:0]$ /export/home/martyn/opt/perl-5.6.1/bin/perl -le 'open $fh, ">>", $ARGV[0]; print tell $fh' /tmp/mime-magic

[martyn:0]$ perl -le 'open $fh, ">>", $ARGV[0]; print tell $fh' /tmp/mime-magic 0

This is with 5.8.0, and remains true with 5.8.1-RC4 .

[Please do not change anything below this line]
Site configuration information for perl v5.8.0:

Configured by martyn at Fri Aug  1 10:31:01 GMT 2003.

Summary of my perl5 (revision 5.0 version 8 subversion 0) configuration:
    osname=linux, osvers=2.4.20-gentoo-r5, archname=i686-linux
    uname='linux monument 2.4.20-gentoo-r5 #2 tue jul 1 08:02:25 gmt 2003 i686 amd athlon(tm) processor authenticamd gnulinux '
    config_args='-des -Darchname=i686-linux -Dcc=gcc -Dprefix=/usr -Dvendorprefix=/usr -Dsiteprefix=/usr -Dlocincpth=  -Doptimize=-mcpu=athlon -O3 -pipe -Duselargefiles -Dd_dosuid -Dd_semctl_semun -Dscriptdir=/usr/bin -Dman3ext=3pm -Dcf_by=Gentoo -Ud_csh -Di_gdbm -Di_db -Di_ndbm'
    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=undef use64bitall=undef uselongdouble=undef
    usemymalloc=n, bincompat5005=undef
    cc='gcc', ccflags ='-DPERL5 -fno-strict-aliasing -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64',
    optimize='-mcpu=athlon -O3 -pipe',
    cppflags='-DPERL5 -DPERL5 -fno-strict-aliasing'
    ccversion='', gccversion='3.2.3 20030422 (Gentoo Linux 1.4 3.2.3-r1, propolice)', 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, prototype=define
  Linker and Libraries:
    ld='gcc', ldflags =' -L/usr/local/lib'
    libpth=/usr/local/lib /lib /usr/lib
    libs=-lpthread -lnsl -lndbm -lgdbm -ldb -ldl -lm -lc -lcrypt -lutil
    perllibs=-lpthread -lnsl -ldl -lm -lc -lcrypt -lutil
    libc=/lib/, 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.8.0:

Environment for perl v5.8.0:
    LANGUAGE (unset)
    LOGDIR (unset)
    PERL_BADLANG (unset)

Thread Next Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at | Group listing | About