X-Git-Url: http://mj.ucw.cz/gitweb/?a=blobdiff_plain;f=gal;h=033ba17b0515e4d6e5fd5680acfc52f63a03afdb;hb=cde61557c48e9889d942fb95fcb762e6c24f15a3;hp=f16a5f746fb7c5bfe2a24468740c4383f57f4b49;hpb=d94da8d601fa080700f1d610089ec5f602d5ee88;p=gallery.git

diff --git a/gal b/gal
index f16a5f7..033ba17 100755
--- a/gal
+++ b/gal
@@ -2,8 +2,7 @@
 # UCW Gallery -- Master Program
 # (c) 2012 Martin Mares <mj@ucw.cz>
 
-use strict;
-use warnings;
+use common::sense;
 use Getopt::Long;
 
 use FindBin;
@@ -54,7 +53,7 @@ my $sub_path = "$gallery_root/bin/gal-$sub";
 -x $sub_path or die "Unknown subcommand $sub\n";
 
 $ENV{"GALLERY_ROOT"} = $gallery_root;
-$ENV{"PERL5LIB"} = join(":", $gallery_root, $ENV{"PERL5LIB"} // ());
+$ENV{"PERL5LIB"} = join(":", $gallery_root . "/lib", $ENV{"PERL5LIB"} // ());
 
 if (!$all) {
 	exec $sub_path, @ARGV;