chiark / gitweb /
Fix installation problems
authorIan Jackson <ijackson@chiark.greenend.org.uk>
Tue, 25 Aug 2009 16:12:34 +0000 (17:12 +0100)
committerIan Jackson <ijackson@chiark.greenend.org.uk>
Tue, 25 Aug 2009 16:12:34 +0000 (17:12 +0100)
yarrg/CommodsWeb.pm

index 84ea710..387b0f2 100644 (file)
@@ -71,7 +71,7 @@ sub sourcebasedir () {
     return $dir;
 }
 
-my datadir () {
+sub datadir () {
     my $dir= sourcebasedir();
     if (stat "$dir/DATA") {
        return "$dir/DATA";
@@ -86,6 +86,7 @@ my datadir () {
 my @ocean_list;
 
 sub ocean_list () {
+    my $datadir= datadir();
     if (!@ocean_list) {
        my $fn= "$datadir/master-info.txt";
        my $f= new IO::File $fn or die $!;