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

[perl #23165] Code sniplet of bug

Thread Next
From:
Donald Sures
Date:
July 29, 2003 14:33
Subject:
[perl #23165] Code sniplet of bug
Message ID:
rt-23165-61937.2.77297360803416@rt.perl.org
# New Ticket Created by  Donald Sures 
# Please include the string:  [perl #23165]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt2/Ticket/Display.html?id=23165 >


#!/usr/bin/perl -w

sub mytest() {
        my ($msg);
        $/ = undef;
        open(DATAFILE, "tmpfile");
        $msg .= <DATAFILE>;
        close(DATAFILE);
        print "---\n" . $msg . "\n---\n";
}

open  (FHANDLE, ">tmpfile");
print FHANDLE "here is some text";
close FHANDLE;

for ( my $x=0; $x < 10; $x++ )  {
        mytest();
}

unlink ("tmpfile");




--------------------------------------------------------------------- PERL 
-V

Summary of my perl5 (revision 5.0 version 8 subversion 0) configuration:
  Platform:
    osname=linux, osvers=2.4.20-18.7smp, archname=i686-linux
    uname='linux rs-app4-symnsj 2.4.20-18.7smp #1 smp thu may 29 07:49:23 
edt 2003 i686 unknown '
    config_args='-de'
    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
  Compiler:
    cc='cc', ccflags ='-fno-strict-aliasing -I/usr/local/include 
-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -I/usr/include/gdbm',
    optimize='-O2',
    cppflags='-fno-strict-aliasing -I/usr/local/include 
-I/usr/include/gdbm'
    ccversion='', gccversion='2.96 20000731 (Red Hat Linux 7.3 2.96-113)', 
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='cc', ldflags =' -L/usr/local/lib'
    libpth=/usr/local/lib /lib /usr/lib
    libs=-lnsl -lndbm -lgdbm -ldl -lm -lc -lcrypt -lutil
    perllibs=-lnsl -ldl -lm -lc -lcrypt -lutil
    libc=/lib/libc-2.2.5.so, so=so, useshrplib=false, libperl=libperl.a
    gnulibc_version='2.2.5'
  Dynamic Linking:
    dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-rdynamic'
    cccdlflags='-fpic', lddlflags='-shared -L/usr/local/lib'


Characteristics of this binary (from libperl):
  Compile-time options: USE_LARGE_FILES
  Built under linux
  Compiled at Jun  6 2003 10:51:51
  @INC:
    /usr/local/lib/perl5/5.8.0/i686-linux
    /usr/local/lib/perl5/5.8.0
    /usr/local/lib/perl5/site_perl/5.8.0/i686-linux
    /usr/local/lib/perl5/site_perl/5.8.0
    /usr/local/lib/perl5/site_perl















---
DJ Sures
Alert Services
Symantec Corporation
Internal 6-403-5432
V 403.261.5432
C 403.681.6777
F 403.261.5455


Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About