Fix font-optimizer for Perl 5.18.

[librarian.git] / scripts / book2cover

diff --git a/scripts/book2cover b/scripts/book2cover
index 6cda7b3..758ab0e 100755 (executable)
--- a/scripts/book2cover
+++ b/scripts/book2cover
@@ -14,11 +14,15 @@ class Book2Cover(Book2Anything):
     ext = "jpg"
     uses_cover = True
     cover_optional = False
+
     transform_options = [
         Option('-W', '--width', action='store', type='int', dest='width', default=None,
                 help='Set width.'),
         Option('-H', '--height', action='store', type='int', dest='height', default=None,
                 help='Set height.'),
+        Option('-l', '--with-logo', dest='with_logo',
+                action='store_true', default=False,
+                help='Add WL logo in white box.'),
     ]
 
     @staticmethod