File::Copy::Link

  use File::Copy::Link;
  copylink 'file.lnk'; 
  use File::Copy::Link qw(safecopylink);
  safecopylink 'file.lnk';

"copylink"

reads the filename linked to by the argument and replaced the link with a copy of the file. It opens a filehandle to read from the link, deletes the link, and then copies the filehandle back to the link.

"safecopylink"

does the same as "copylink" but without the open-and-delete manouvre. Instead, it uses "File::Spec::Link" to find the target of the link and copies from there.

This module is mostly a wrapper round "File::Spec::Link::linked" and "File::Copy::copy", the functionality is available in a command line script copylink.

copylink(1) File::Copy(3) File::Spec::Link(3)

Robin Barker, <RMBarker@cpan.org>

Copyright 2003, 2006, 2007, 2011, 2014 by Robin Barker

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.