Merge branch 'web' of /u/ijackson/things/ypp-sc-tools

[ypp-sc-tools.db-live.git] / yarrg / CommodsWeb.pm

diff --git a/yarrg/CommodsWeb.pm b/yarrg/CommodsWeb.pm
index 387b0f2326f0d8130cb38194789ecaa784ec987e..3f0f5f5ba8320d38ed62cb0f2e3c9785a031e572 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$/) {
-           $dir= "$dir/..";
-           last;
+           return "$dir/..";
        }
     }
-    defined $dir or
-       die "no source base dir in @INC";
+    die "no source base dir in @INC";
     return $dir;
 }