Cleaned up MJ's hacks

[gallery.git] / gal

diff --git a/gal b/gal
index f16a5f746fb7c5bfe2a24468740c4383f57f4b49..033ba17b0515e4d6e5fd5680acfc52f63a03afdb 100755 (executable)
--- 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;