this always fails because slurp isn't exported

Raku · Dec 16, 2010 · add5bef · add5bef
1 parent c83889e
commit add5bef
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/web/build-project-list.pl b/web/build-project-list.pl
@@ -110,7 +110,7 @@
 sub get_projects {
     my ($list_url) = @_;
     my $projects;
-    my $contents = eval { slurp('projects.list.local') } || get($list_url);
+    my $contents = eval { read_file('projects.list.local') } || get($list_url);
     for my $line (split "\n", $contents) {
         my ($name, $url) = split ' ', $line;
         my ($auth) = $url =~ m[git://github.com/([^/]+)/];