Switched to common::sense

diff --git a/README b/README
index 0aed6db7681369f480cdf7f787a11cde2ce82975..5fbcd6d682b1ffb01dd142281e956e69f775a08e 100644 (file)
--- a/README
+++ b/README
@@ -19,6 +19,7 @@ Perl with the following non-core modules:
    o  Image::Exif
    o  Archive::Zip
    o  Digest::SHA
+   o  common::sense
 
 Files and directories
 ~~~~~~~~~~~~~~~~~~~~~

diff --git a/bin/gal-cache b/bin/gal-cache
index 73c97db80dfdf0ad4b34d537e6b234dda5801834..263ec9cacfbbac05d1564a0f52ab7cedff36e21e 100755 (executable)
--- a/bin/gal-cache
+++ b/bin/gal-cache
@@ -2,8 +2,7 @@
 # UCW Gallery: Prepare cache
 # (c) 2004--2012 Martin Mares <mj@ucw.cz>
 
-use strict;
-use warnings;
+use common::sense;
 
 use UCW::Gallery;
 use Image::Magick;

diff --git a/bin/gal-date b/bin/gal-date
index 451201cec3e11f5a61d866a9e06711100208a1e5..c78eda0510642d74a260afcaa851f5a0ba1fc4b0 100755 (executable)
--- a/bin/gal-date
+++ b/bin/gal-date
@@ -2,8 +2,7 @@
 # UCW Gallery: Symlink photos according to their EXIF timestamps
 # (c) 2013 Martin Mares <mj@ucw.cz>
 
-use strict;
-use warnings;
+use common::sense;
 
 use Image::EXIF;
 use Getopt::Long;

diff --git a/bin/gal-dump-config b/bin/gal-dump-config
index 600a9d5517f9a5c633c8e9f08f4bab982d581ec5..f4489bf91af7f0b2e814cbbb09b6e6faaa488e15 100755 (executable)
--- a/bin/gal-dump-config
+++ b/bin/gal-dump-config
@@ -2,8 +2,7 @@
 # UCW Gallery: Show configuration variables
 # (c) 2004--2012 Martin Mares <mj@ucw.cz>
 
-use strict;
-use warnings;
+use common::sense;
 
 use UCW::Gallery;
 use Data::Dumper;

diff --git a/bin/gal-dump-meta b/bin/gal-dump-meta
index 1734183ab9886533104605376ae2c3656a71f2f9..6948fb5f153edd9c91cb47942f2875bbc4f750fd 100755 (executable)
--- a/bin/gal-dump-meta
+++ b/bin/gal-dump-meta
@@ -2,8 +2,7 @@
 # UCW Gallery: Dump meta-data
 # (c) 2004--2012 Martin Mares <mj@ucw.cz>
 
-use strict;
-use warnings;
+use common::sense;
 
 use UCW::Gallery;
 use Data::Dumper;

diff --git a/bin/gal-from-gqview b/bin/gal-from-gqview
index 138af5a7ca5f0589b56e2e245fc9e97e34d2d421..836c457d1c55815a1f9c03d35bb36d977c6baaf8 100755 (executable)
--- a/bin/gal-from-gqview
+++ b/bin/gal-from-gqview
@@ -2,8 +2,7 @@
 # UCW Gallery: Extract image list from GQview collection
 # (c) 2004--2012 Martin Mares <mj@ucw.cz>
 
-use strict;
-use warnings;
+use common::sense;
 
 while (<>) {
        chomp;

diff --git a/bin/gal-gen b/bin/gal-gen
index 1ee10b04749fd47b09b7e4cd31a885edded68d18..7c36884cd0e27915eb4ce4b3a5e7fa4327959288 100755 (executable)
--- a/bin/gal-gen
+++ b/bin/gal-gen
@@ -2,8 +2,7 @@
 # UCW Gallery: Generate published photos
 # (c) 2004--2015 Martin Mares <mj@ucw.cz>
 
-use strict;
-use warnings;
+use common::sense;
 
 use UCW::Gallery;
 use Image::EXIF;

diff --git a/bin/gal-mj-digikam b/bin/gal-mj-digikam
index 8576f8963712bda79ed81cf73e9c948e4fec98ec..3598573d2f4f026d7043fa08004857ccc0f940ab 100755 (executable)
--- a/bin/gal-mj-digikam
+++ b/bin/gal-mj-digikam
@@ -1,7 +1,6 @@
 #!/usr/bin/perl
 
-use strict;
-use warnings;
+use common::sense;
 
 use Cwd;
 use DBI;

diff --git a/bin/gal-mj-init b/bin/gal-mj-init
index 11052544ca3aaf55a7ab94fb3068c72f02f7560a..4f932f8fbff8cc4f63cb66ff51c1cbf0046d48fb 100755 (executable)
--- a/bin/gal-mj-init
+++ b/bin/gal-mj-init
@@ -7,9 +7,7 @@ if [ -f gallery.cf ] ; then
 fi
 
 cat >gallery.cf <<'AMEN'
-use strict;
-use warnings;
-use utf8;
+use common::sense;
 
 my $gal = require '../../default.cf';
 $gal->set(

diff --git a/bin/gal-mj-map b/bin/gal-mj-map
index b9f48d9ba7ef1c1c8de0394c674ad29c7424d741..aedd97418ccde0e138705274a9bb3f36460660f2 100755 (executable)
--- a/bin/gal-mj-map
+++ b/bin/gal-mj-map
@@ -1,7 +1,6 @@
 #!/usr/bin/perl
 
-use strict;
-use warnings;
+use common::sense;
 
 use Digest::SHA;
 use File::Find;

diff --git a/bin/gal-mj-migrate-check b/bin/gal-mj-migrate-check
index 5936f32226f89f74ceb288efa0606485767f510a..e7762a6471ab83eaaf1a4e24da3f259583bfa275 100755 (executable)
--- a/bin/gal-mj-migrate-check
+++ b/bin/gal-mj-migrate-check
@@ -1,8 +1,7 @@
 #!/usr/bin/perl
 # Check that thumbnail aspect ratios match pre-migration data
 
-use strict;
-use warnings;
+use common::sense;
 
 use UCW::Gallery;
 

diff --git a/bin/gal-mj-upgrade b/bin/gal-mj-upgrade
index 66c260fd65adb35b17765fefafb5cb386560205b..da019f67d4a9d58f98264bb3d2091308b221bfb7 100755 (executable)
--- a/bin/gal-mj-upgrade
+++ b/bin/gal-mj-upgrade
@@ -1,7 +1,6 @@
 #!/usr/bin/perl
 
-use strict;
-use warnings;
+use common::sense;
 
 use UCW::Gallery;
 use File::Spec;
@@ -133,9 +132,7 @@ if (scalar keys %found_dirs != 1) {
 
 open CF, ">$album/gallery.cf" or die "Cannot create $album/gallery.cf";
 print CF <<'AMEN' ;
-use strict;
-use warnings;
-use utf8;
+use common::sense;
 
 my $gal = require '../../default.cf';
 $gal->set(

diff --git a/bin/gal-mj-upload b/bin/gal-mj-upload
index 6fc7cf1d5ff33032bf520950f03fa4866497e02c..67aae53a51b750415fc4e6143c4b93ba0adac904 100755 (executable)
--- a/bin/gal-mj-upload
+++ b/bin/gal-mj-upload
@@ -1,7 +1,6 @@
 #!/usr/bin/perl
 
-use strict;
-use warnings;
+use common::sense;
 
 print "## Updating Git\n";
 system "git", "pull";

diff --git a/bin/gal-scan b/bin/gal-scan
index a976d5d9ce4e33b480359d968ab665bcd2c76627..bb74c06c5c5f77f5a3ac6f6e6f2deb34b7383ce5 100755 (executable)
--- a/bin/gal-scan
+++ b/bin/gal-scan
@@ -2,8 +2,7 @@
 # UCW Gallery: Scan images and generate image list
 # (c) 2004--2015 Martin Mares <mj@ucw.cz>
 
-use strict;
-use warnings;
+use common::sense;
 
 use UCW::Gallery;
 use UCW::Gallery::Hashes;

diff --git a/example/default.cf b/example/default.cf
index a43f20ce4eca8eae15c5b22ffcfa1c54a659e4ef..d4aa89a88b99b46e174ea33eb6b56bbf1d332ee4 100644 (file)
--- a/example/default.cf
+++ b/example/default.cf
@@ -1,8 +1,6 @@
 # Generic configuration file for UCW::Gallery
 
-use strict;
-use warnings;
-use utf8;
+use common::sense;
 
 use UCW::Gallery;
 use Cwd;

diff --git a/example/gallery.cgi b/example/gallery.cgi
index b20d8b49006df3c6cc7591fbfa5f223b2dd6076a..053155b45912f21e0bb316d73f3fd6e31a9ff1da 100644 (file)
--- a/example/gallery.cgi
+++ b/example/gallery.cgi
@@ -1,7 +1,6 @@
 #!/usr/bin/perl
 
-use strict;
-use warnings;
+use common::sense;
 
 use lib $ENV{'DOCUMENT_ROOT'} . "/../lib/gal/lib";
 use lib $ENV{'DOCUMENT_ROOT'} . "/../lib/perl";

diff --git a/gal b/gal
index 6c4daaea26fddb1bb24ad3c4e5b1ca8da115898b..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;

diff --git a/lib/UCW/Gallery.pm b/lib/UCW/Gallery.pm
index 748fe3cddff99db81f2ef9f2241bdb991f77a041..ef0fc103e67bdea452a3879966e89a54e4430f03 100644 (file)
--- a/lib/UCW/Gallery.pm
+++ b/lib/UCW/Gallery.pm
@@ -3,8 +3,7 @@
 
 package UCW::Gallery;
 
-use strict;
-use warnings;
+use common::sense;
 
 use File::Spec;
 use Storable;

diff --git a/lib/UCW/Gallery/Archive.pm b/lib/UCW/Gallery/Archive.pm
index fb7c40b45656d9d289b59097ba2c082de1d3fc1f..0acfa7b56e2cdcd176361dadfbc065895687a984 100644 (file)
--- a/lib/UCW/Gallery/Archive.pm
+++ b/lib/UCW/Gallery/Archive.pm
@@ -3,8 +3,7 @@
 
 package UCW::Gallery::Archive;
 
-use strict;
-use warnings;
+use common::sense;
 
 use Archive::Zip;
 use File::Spec;

diff --git a/lib/UCW/Gallery/Hashes.pm b/lib/UCW/Gallery/Hashes.pm
index d0414e9c8e652ab805d1fe93e2c356168ea8009c..233fabb1d7c85a228d3768d9ab1155af3e432d63 100644 (file)
--- a/lib/UCW/Gallery/Hashes.pm
+++ b/lib/UCW/Gallery/Hashes.pm
@@ -3,8 +3,7 @@
 
 package UCW::Gallery::Hashes;
 
-use strict;
-use warnings;
+use common::sense;
 
 use File::stat ();
 use Digest::SHA;

diff --git a/lib/UCW/Gallery/Web.pm b/lib/UCW/Gallery/Web.pm
index ccca477e8007fb11e0ef7cc2918c26c8b7e4b946..4b39e3b61ce57d0fa79234dfcbd4e6d16295c270 100644 (file)
--- a/lib/UCW/Gallery/Web.pm
+++ b/lib/UCW/Gallery/Web.pm
@@ -3,8 +3,7 @@
 
 package UCW::Gallery::Web;
 
-use strict;
-use warnings;
+use common::sense;
 
 use UCW::Gallery;
 use UCW::CGI;

diff --git a/lib/UCW/Gallery/Web/HighSlide.pm b/lib/UCW/Gallery/Web/HighSlide.pm
index b1e503b261874f29f79f6d6bc023912a111d3835..2ce3fa59d0a6d12ffc5349e99b8ff087c635493f 100644 (file)
--- a/lib/UCW/Gallery/Web/HighSlide.pm
+++ b/lib/UCW/Gallery/Web/HighSlide.pm
@@ -3,8 +3,7 @@
 
 package UCW::Gallery::Web::HighSlide;
 
-use strict;
-use warnings;
+use common::sense;
 use utf8;
 
 use UCW::Gallery;

diff --git a/lib/UCW/Gallery/Web/NrtBlue.pm b/lib/UCW/Gallery/Web/NrtBlue.pm
index 7fc56378a5ee2446adb5ab1f7c1bcd8dfedaebb5..ba669a47f20769a68c8b0fefe1b2f2c00613a40f 100644 (file)
--- a/lib/UCW/Gallery/Web/NrtBlue.pm
+++ b/lib/UCW/Gallery/Web/NrtBlue.pm
@@ -4,8 +4,7 @@
 
 package UCW::Gallery::Web::NrtBlue;
 
-use strict;
-use warnings;
+use common::sense;
 
 use UCW::Gallery;
 use UCW::Gallery::Web;

diff --git a/lib/UCW/Gallery/Web/Plain.pm b/lib/UCW/Gallery/Web/Plain.pm
index f7d213cb8443696a2a7140c693713476696797d3..255eb891c7e52c8d31e24bf6bbc147510531fa69 100644 (file)
--- a/lib/UCW/Gallery/Web/Plain.pm
+++ b/lib/UCW/Gallery/Web/Plain.pm
@@ -3,8 +3,7 @@
 
 package UCW::Gallery::Web::Plain;
 
-use strict;
-use warnings;
+use common::sense;
 
 use UCW::Gallery;
 use UCW::Gallery::Web;