Hello Colleagues,
here is another reproducer for a 5.12 problem (this might be something for
Robert). The following little script fails:
use File::Copy;
my $from = 'sys$login:from.lis';
my $to = 'sys$login:to.lis';
system("create/fdl=nl: $from") ;
copy($from, $to) || warn ("Copy failed:", $!);
The failiure condition is that the file spec does not contain an explicit
directory spec (i.e. dsa0:[zinser]to.lis works). Throwing in a print in
Copy.pm just before the
return syscopy($from, $copy_to) || 0 reveals that $copy_to incorrectly
gets expanded to temp:[]to.lis and accordingly the subsequent copy fails.
Up to
the section File::Spec->splitpath ... File::Spec->catpath $copy_to does
contain the correct file spec, so this is most proably where the culprit
is.
Oh, and yes this does work with 5.8.x ;-)
Greetings, Martin
-----------------------------------------
Diese E-Mail enthaelt vertrauliche oder rechtlich geschuetzte Informationen.
Wenn Sie nicht der beabsichtigte Empfaenger sind, informieren Sie bitte
sofort den Absender und loeschen Sie diese E-Mail. Das unbefugte Kopieren
dieser E-Mail oder die unbefugte Weitergabe der enthaltenen Informationen
ist nicht gestattet.
The information contained in this message is confidential or protected by
law. If you are not the intended recipient, please contact the sender and
delete this message. Any unauthorised copying of this message or
unauthorised distribution of the information contained herein is prohibited.
Legally required information for business correspondence/
Gesetzliche Pflichtangaben fuer Geschaeftskorrespondenz:
http://deutsche-boerse.com/letterhead
