goodbye perl

1 files changed, 20 insertions, 0 deletions

diff --git a/usr.bin/readlink/readlink.c b/usr.bin/readlink/readlink.c
new file mode 100644
index 00000000000..da5cbb5ebc2
--- /dev/null
+++ b/usr.bin/readlink/readlink.c
@@ -0,0 +1,20 @@
+#include <sys/syslimits.h>
+#include <stdio.h>
+#include <unistd.h>
+
+int
+main(argc, argv)
+int argc;
+char **argv;
+{
+	char buf[PATH_MAX];
+
+	if (argc != 2)
+		errx(1, "usage: readlink symlink");
+
+	if (readlink(argv[1], buf, PATH_MAX) < 0)
+		exit(1);
+	else
+		printf("%s", buf);
+	exit(0);
+}