gal-mj-digikam: Use image title

[gallery.git] / gal

diff --git a/gal b/gal
index 033ba17b0515e4d6e5fd5680acfc52f63a03afdb..81e94c18a41fde1f174910fc1bccecf8a55124b6 100755 (executable)
--- a/gal
+++ b/gal
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 # UCW Gallery -- Master Program
-# (c) 2012 Martin Mares <mj@ucw.cz>
+# (c) 2012--2015 Martin Mares <mj@ucw.cz>
 
 use common::sense;
 use Getopt::Long;
@@ -36,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,
@@ -96,7 +96,7 @@ while ($running || @dirs) {
                if (!$pid) {
                        if ($logging) {
                                close STDOUT;
-                               open STDOUT, '>', "$dir/gallery.log" or die;
+                               open STDOUT, '>', "$dir/gallery.log" or die "Unable to create $dir/gallery.log: $!\n";
                                close STDERR;
                                open STDERR, '>&STDOUT';
                        }