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

diff --git a/gal b/gal
index f16a5f7..c62d0d8 100755
--- a/gal
+++ b/gal
@@ -1,9 +1,8 @@
 #!/usr/bin/perl
 # UCW Gallery -- Master Program
-# (c) 2012 Martin Mares <mj@ucw.cz>
+# (c) 2012--2015 Martin Mares <mj@ucw.cz>
 
-use strict;
-use warnings;
+use common::sense;
 use Getopt::Long;
 
 use FindBin;
@@ -37,7 +36,7 @@ Getopt::Long::Configure('require_order', 'bundling');
 GetOptions(
 	"help" => \&show_help,
 	"version" => sub {
-			print "UCW Gallery 2.0 (c) 2004-2012 Martin Mares <mj\@ucw.cz>\n";
+			print "UCW Gallery 2.1 (c) 2004-2015 Martin Mares <mj\@ucw.cz>\n";
 		},
 	"all!" => \$all,
 	"p|parallel=i" => \$parallel,
@@ -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;