chiark / gitweb /
Saner sourcebasedir function
authorIan Jackson <ijackson@chiark.greenend.org.uk>
Tue, 25 Aug 2009 16:11:59 +0000 (17:11 +0100)
committerIan Jackson <Ian.Jackson@eu.citrix.com>
Tue, 25 Aug 2009 16:11:59 +0000 (17:11 +0100)
yarrg/CommodsWeb.pm

index 84ea710..1eae15e 100644 (file)
@@ -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;
 }