Author: pmichaud
Date: Wed Aug 20 05:19:36 2008
New Revision: 30376
Modified:
trunk/languages/perl6/src/builtins/guts.pir
Log:
[rakudo]: Remove obsolete '!find_file_in_path' guts function.
Modified: trunk/languages/perl6/src/builtins/guts.pir
==============================================================================
--- trunk/languages/perl6/src/builtins/guts.pir (original)
+++ trunk/languages/perl6/src/builtins/guts.pir Wed Aug 20 05:19:36 2008
@@ -433,35 +433,6 @@
.return (result)
.end
-
-=item !find_file_in_path(path, filename)
-
-Searches a standard colon-separated path for a filename.
-
-=cut
-
-.sub '!find_file_in_path'
- .param string search_path
- .param string filename
- .local string path
- .local pmc iter
-
- $P0 = split ':', search_path
- iter = new 'Iterator', $P0
- iter_start:
- path = filename
- unless iter goto return_path
- $S0 = shift iter
- path = concat $S0, '/'
- path .= filename
- $I0 = stat path, 0
- unless $I0 goto iter_start
-
- return_path:
- .return(path)
-.end
-
-
=back
=cut
