chiark
/
gitweb
/
~yarrgweb
/
ypp-sc-tools.main.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Saner sourcebasedir function
[ypp-sc-tools.main.git]
/
yarrg
/
CommodsWeb.pm
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;
}