From: Jakob Haufe <sur5r@sur5r.net>
Date: Tue, 24 Oct 2017 20:34:20 +0000 (+0200)
Subject: Move initialisation of $defaultcrop to fix #5
X-Git-Tag: v0.6^0
X-Git-Url: https://git.sur5r.net/?p=pdfstitch;a=commitdiff_plain;h=c678a1962d4c6dea804b8090731b2a1bd8e4d7c3

Move initialisation of $defaultcrop to fix #5
---

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;