[backend] fix perl module loading

openSUSE · Aug 24, 2012 · 8970ab9 · 8970ab9
1 parent 31776d8
commit 8970ab9
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/backend/bs_mkarchrepo b/src/backend/bs_mkarchrepo
@@ -2,8 +2,9 @@
 
 BEGIN {
   my ($wd) = $0 =~ m-(.*)/- ;
+  $wd ||= '.';
   unshift @INC,  "$wd/build";
-  unshift @INC,  $wd; 
+  unshift @INC,  "$wd";
 }
 
 use strict;