Implement simple version of sub lines to get minmax.t working.

rakudo · Feb 23, 2010 · a1ed7ff · a1ed7ff
1 parent 7c90f14
commit a1ed7ff
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/src/core/IO.pm b/src/core/IO.pm
@@ -124,4 +124,11 @@ sub unlink($filename) {
     }
 }
 
+# CHEAT: This function is missing a bunch of arguments,
+# and should be more robust.
+multi lines (Str $filename, Any  $limit = *) {
+    my $fh = open $filename or fail "Unable to open $filename";
+    $fh.lines($limit);
+}
+
 # vim: ft=perl6