From: Steinar H. Gunderson <sesse@debian.org>
Date: Sat, 31 Jan 2009 14:15:18 +0000 (+0100)
Subject: Fix a warning about uninitialized values.
X-Git-Url: https://git.sesse.net/?p=pr0n;a=commitdiff_plain;h=1077ff24c69b1ebf86c4b96bd86ce2d9107ee3eb;ds=sidebyside

Fix a warning about uninitialized values.
---

diff --git a/perl/Sesse/pr0n/Index.pm b/perl/Sesse/pr0n/Index.pm
index ee0e311..70ac117 100644
--- a/perl/Sesse/pr0n/Index.pm
+++ b/perl/Sesse/pr0n/Index.pm
@@ -96,7 +96,7 @@ sub handler {
 		if (($s eq "num" || $s eq "xres" || $s eq "yres") && defined($val) && $val == -1) {
 			$settings{$s} = $val;
 		}
-		if ($s eq "model" || $s eq "lens" || $s eq "author") {
+		if (($s eq "model" || $s eq "lens" || $s eq "author") && defined($val)) {
 			$settings{$s} = Sesse::pr0n::Common::pretty_unescape($val);
 		}
 	}