develooper Front page | perl.perl5.porters | Postings from January 2001

[ID 20010116.001] File::Copy truncates orig file

January 16, 2001 03:42
[ID 20010116.001] File::Copy truncates orig file
Message ID:

This is a bug report for perl from,
generated with the help of perlbug 1.17 running under perl 5.00401.

[Please enter your report here]

When running File::Copy($f1,$f2) and $f1 == $f2, the file is truncated... I'd expect an error just like the UNIX cp command does...

[Please do not change anything below this line]

Site configuration information for perl 5.00401:

Configured by root at Thu Apr 29 11:31:30 WET DST 1999.

Summary of my perl5 (5.0 patchlevel 4 subversion 1) configuration:
    osname=dec_osf, osvers=4.0, archname=alpha-dec_osf
    uname='osf1 v4.0 878 alpha '
    hint=recommended, useposix=true, d_sigaction=define
    bincompat3=y useperlio= d_sfio=
    cc='cc', optimize='-O4', gccversion=
    cppflags='-std -D_INTRINSICS -D__LANGUAGE_C__'
    ccflags ='-std -D_INTRINSICS -D__LANGUAGE_C__'
    stdchar='unsigned char', d_stdstdio=define, usevfork=false
    voidflags=15, castflags=0, d_casti32=define, d_castneg=define
    intsize=4, alignbytes=8, usemymalloc=y, randbits=15
  Linker and Libraries:
    ld='ld', ldflags =''
    libpth=/usr/shlib /shlib /lib /usr/lib /usr/ccs/lib
    libs=-lnet -ldbm -ldb -lm
    libc=/usr/shlib/, so=so
    useshrplib=false, libperl=libperl.a
  Dynamic Linking:
    dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=, ccdlflags=' '
    cccdlflags=' ', lddlflags='-shared -expect_unresolved "*" -O4 -msym -s'

@INC for perl 5.00401:

Environment for perl 5.00401:
    LANG (unset)
    LOGDIR (unset)
    PERL_BADLANG (unset)
    SHELL=/usr/local/bin/tcsh Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at | Group listing | About