From c678a1962d4c6dea804b8090731b2a1bd8e4d7c3 Mon Sep 17 00:00:00 2001
From: Jakob Haufe <sur5r@sur5r.net>
Date: Tue, 24 Oct 2017 22:34:20 +0200
Subject: [PATCH] Move initialisation of $defaultcrop to fix #5

---
 pdfstitch | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/pdfstitch b/pdfstitch
index 9a6cf9b..2fec227 100755
--- a/pdfstitch
+++ b/pdfstitch
@@ -16,7 +16,7 @@ my $genmeta = '';
 my $preview = '';
 my $crop = '';
 my $stitch = '';
-my $defaultcrop = '0.9';
+my $defaultcrop = '';
 
 Getopt::Long::Configure("bundling");
 
@@ -96,6 +96,7 @@ if(not ($genmeta or $preview or $crop or $stitch))
 if($genmeta)
 {
     print "Generating meta file for " . basename($infile) . ".\n";
+    $defaultcrop = '0.9' unless $defaultcrop;
     my $outfile = basename($infile) . ".stitch";
 
     die "$outfile exists, aborting!\n" if -e $outfile;
-- 
2.39.5