view release on metacpan or  search on metacpan

lib/File/Copy/clonefile.xs  view on Meta::CPAN

#include "const-c.inc"

MODULE = File::Copy::clonefile  PACKAGE = File::Copy::clonefile

INCLUDE: const-xs.inc

PROTOTYPES: DISABLE

void
clonefile(...)
PPCODE:
{
  if (items != 2 && items != 3) {
    croak("clonefile: the length of arguments must be 2 or 3");
  }
  const char* src = SvPV_nolen(ST(0));
  const char* dst = SvPV_nolen(ST(1));
  IV flags = 0;
  if (items == 3) {
    flags = SvIV(ST(2));
  }