From c11d6fe65e9be995358d5f6d7657b3cff03ff40f Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Tue, 25 Aug 2009 17:16:46 +0100
Subject: [PATCH 1/1] Fix broken sourcedir things

---
 yarrg/CommodsWeb.pm | 15 +++++++++------
 1 file changed, 9 insertions(+), 6 deletions(-)

diff --git a/yarrg/CommodsWeb.pm b/yarrg/CommodsWeb.pm
index 3f0f5f5..036c7e9 100644
--- a/yarrg/CommodsWeb.pm
+++ b/yarrg/CommodsWeb.pm
@@ -57,20 +57,23 @@ BEGIN {
     @EXPORT_OK   = qw();
 }
 
-sub sourcebasedir () {
+sub dotperllibdir () {
     my $dir;
     
     for my $dir (@INC) {
 	if ($dir =~ m/\.perl-lib$/) {
-	    return "$dir/..";
+	    return $dir;
 	}
     }
-    die "no source base dir in @INC";
-    return $dir;
+    die "no appropriate dotperllib dir in @INC";
+}
+
+sub sourcebasedir () {
+    return dotperllibdir().'/..';
 }
 
 sub datadir () {
-    my $dir= sourcebasedir();
+    my $dir= dotperllibdir();
     if (stat "$dir/DATA") {
 	return "$dir/DATA";
     } elsif ($!==&ENOENT) {
@@ -87,7 +90,7 @@ sub ocean_list () {
     my $datadir= datadir();
     if (!@ocean_list) {
 	my $fn= "$datadir/master-info.txt";
-	my $f= new IO::File $fn or die $!;
+	my $f= new IO::File $fn or die "$fn $!";
 	my @r;
 	while (<$f>) {
 	    next unless m/^ocean\s+(\S.*\S)\s*$/;
-- 
2.30.2