Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
branch: master
Fetching contributors…

Cannot retrieve contributors at this time

38 lines (32 sloc) 0.549 kb
#ifdef __cplusplus
extern "C" {
#endif
#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"
#ifdef __cplusplus
}
#endif
#include "pgsymlink.c"
#include "tclreadlink.c"
MODULE = Win32::Symlink PACKAGE = Win32::Symlink
int
symlink(oldpath, newpath)
const char * oldpath
const char * newpath
CODE:
if (pgsymlink(oldpath, newpath) == -1) {
RETVAL = 0;
}
else {
RETVAL = 1;
}
OUTPUT:
RETVAL
char *
readlink(path)
SV * path
CODE:
RETVAL = tclreadlink(SvPV_nolen(path));
OUTPUT:
RETVAL
Jump to Line
Something went wrong with that request. Please try again.