[ID 20010116.001] File::Copy truncates orig file

This is a bug report for perl from illpide@telecel.pt,
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:
  Platform:
    osname=dec_osf, osvers=4.0, archname=alpha-dec_osf
    uname='osf1 vr01al08.telecel.pt v4.0 878 alpha '
    hint=recommended, useposix=true, d_sigaction=define
    bincompat3=y useperlio= d_sfio=
  Compiler:
    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/libc.so, 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:
	/usr/local/lib/perl5/alpha-dec_osf/5.00401
	/usr/local/lib/perl5
	/usr/local/lib/perl5/site_perl/alpha-dec_osf
	/usr/local/lib/perl5/site_perl
	.

---
Environment for perl 5.00401:
    HOME=/arbor
    LANG (unset)
    LD_LIBRARY_PATH=/adaptive/lib:/usr/shlib:/arbor/arbor_006/orders/site/lib:/arbor/arbor_006/site_specific/lib
    LOGDIR (unset)
    PATH=/adaptive/bin:/sybprec/bin:/usr/local/bin:/adaptive/bin:/arbor/arbor_006/bin:/usr/sbin:.:/arbor/bin:/usr/bin:.:/arbor/arbor_006/site_specific/custom/scripts
    PERL_BADLANG (unset)
    SHELL=/usr/local/bin/tcsh

• [ID 20010116.001] File::Copy truncates orig file by arbor