perlbug at perl
Nov 4, 2002, 9:14 AM
Post #1 of 2
(51 views)
Permalink
|
|
[perl #18218] DJGPP input buffering bug while system()
|
|
# New Ticket Created by Dan Dascalescu
# Please include the string: [perl #18218]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt2/Ticket/Display.html?id=18218 >
This is a bug report for perl from danvdascalescu [at] yahoo,
generated with the help of perlbug 1.34 running under perl v5.6.1.
#! perl -w
# This program outputs itself to STDOUT under most perl builds, except DJGPP.
# Tested with perl 5.8.0 built for DJGPP. Setting $| to 1 for FH and STDOUT
# doesn't help (this is an *input* buffering problem and $| is documented to
# affect only output). Opening the file only for reading doesn't reproduce
# the bug.
open FH, "+< $0" or die "Can't open myself! (R/O)?"; # read-write mode!
while (<FH>)
{ print;
`perl --version`;
}
Hope this helps,
Dan V. Dascalescu
---
Flags:
category=core
severity=medium
---
Site configuration information for perl v5.6.1:
Configured by Zastai at Sat Oct 6 14:15:40 CEST 2001.
Summary of my perl5 (revision 5.0 version 6 subversion 1) configuration:
Platform:
osname=dos, osvers=djgpp, archname=dos-djgpp
uname='ms-dos fatboyti 8 00 pc '
config_args=''
hint=recommended, useposix=true, d_sigaction=define
usethreads=undef use5005threads=undef useithreads=undef usemultiplicity=undef
useperlio=undef d_sfio=undef uselargefiles=undef usesocks=undef
use64bitint=undef use64bitall=undef uselongdouble=undef
Compiler:
cc='gcc', ccflags ='-DPERL_EXTERNAL_GLOB -fno-strict-aliasing',
optimize='-O6',
cppflags='-DPERL_EXTERNAL_GLOB -fno-strict-aliasing'
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=4
alignbytes=4, usemymalloc=n, prototype=define
Linker and Libraries:
ld='ld', ldflags ='-s'
libpth=/dev/env/DJDIR/lib
libs=-lgdbm -lm -lc -liconv -lcharset
perllibs=-lgdbm -lm -lc -liconv -lcharset
libc=/dev/env/DJDIR/lib/libc.a, so=none, useshrplib=false, libperl=libperl.a
Dynamic Linking:
dlsrc=dl_none.xs, dlext=none, d_dlsymun=undef, ccdlflags=''
cccdlflags='', lddlflags=''
Locally applied patches:
---
@INC for perl v5.6.1:
/dev/env/DJDIR/lib/perl5
/dev/env/DJDIR/lib/perl5/site
/dev/env/DJDIR/lib/perl5/site
/dev/env/DJDIR/lib/perl5/site
.
---
Environment for perl v5.6.1:
HOME (unset)
LANG (unset)
LANGUAGE (unset)
LD_LIBRARY_PATH (unset)
LOGDIR (unset)
PATH=C:\DN;D:\DJGPP\BIN;D:\PRG\ASM;D:\PRG\BP;D:\PRG\BC\BIN;C:\WINDOWS;C:\WINDOWS\COMMAND;
PERL_BADLANG (unset)
SHELL (unset)
-------------------------------------------------------
Xnet scaneaza automat toate mesajele impotriva virusilor folosind RAV AntiVirus.
Xnet automatically scans all messages for viruses using RAV AntiVirus.
Nota: RAV AntiVirus poate sa nu detecteze toti virusii noi sau toate variantele lor. Va rugam sa luati in considerare ca exista un risc de fiecare data cand deschideti fisiere atasate si ca MobiFon nu este responsabila pentru nici un prejudiciu cauzat de virusi.
Disclaimer: RAV AntiVirus may not be able to detect all new viruses and variants. Please be aware that there is a risk involved whenever opening e-mail attachments to your computer and that MobiFon is not responsible for any damages caused by viruses.
|
