From 45b806a35df15d9dba09cb7f81b1e6aa80b7cefe Mon Sep 17 00:00:00 2001
From: Solomon Foster <colomon@gmail.com>
Date: Mon, 8 Mar 2010 13:51:47 -0500
Subject: [PATCH] Port :l from alpha.

---
 src/builtins/Str.pir | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/src/builtins/Str.pir b/src/builtins/Str.pir
index cdd0a4c9081..1914fa33f07 100644
--- a/src/builtins/Str.pir
+++ b/src/builtins/Str.pir
@@ -236,6 +236,17 @@ These return various information about the file.
     .return ($P0)
 .end
 
+.sub ':l' :method :multi(_)
+    .local string filename
+    filename = self
+
+    .local pmc file
+    file = root_new ['parrot';'File']
+
+    $I0 = file.'is_link'(filename)
+    .return ($I0)
+.end
+
 =back
 
 =head2 Functions