Saner sourcebasedir function

diff --git a/yarrg/CommodsWeb.pm b/yarrg/CommodsWeb.pm
index 84ea71066c186902d95b7108e874323092ff8d0b..1eae15e11e84159e50cf834f641fa970eccb6298 100644 (file)
--- a/yarrg/CommodsWeb.pm
+++ b/yarrg/CommodsWeb.pm
@@ -62,12 +62,10 @@ sub sourcebasedir () {
     
     for my $dir (@INC) {
        if ($dir =~ m/\.perl-lib$/) {
     
     for my $dir (@INC) {
        if ($dir =~ m/\.perl-lib$/) {

-           $dir= "$dir/..";
-           last;
+           return "$dir/..";

        }
     }
        }
     }

-    defined $dir or
-       die "no source base dir in @INC";
+    die "no source base dir in @INC";

     return $dir;
 }
 
     return $dir;
 }