From: Steinar H. Gunderson <sesse@debian.org>
Date: Mon, 31 Jul 2006 12:24:25 +0000 (+0200)
Subject: Yet more flash tweaks.
X-Git-Url: https://git.sesse.net/?p=pr0n;a=commitdiff_plain;h=86ad645e65c1a448941453f9dcbf3df599db1e21;hp=0ca17c2b65860aca298efaf74bb524645d9506c1

Yet more flash tweaks.
---

diff --git a/perl/Sesse/pr0n/Common.pm b/perl/Sesse/pr0n/Common.pm
index d5e6727..8fe17d7 100644
--- a/perl/Sesse/pr0n/Common.pm
+++ b/perl/Sesse/pr0n/Common.pm
@@ -439,9 +439,11 @@ sub make_infobox {
 	if (defined($info->{'Flash'})) {
 		if ($info->{'Flash'} =~ /did not fire/i ||
 		    $info->{'Flash'} =~ /no flash/i ||
-		    $info->{'Flash'} =~ /not fired/i)  {
+		    $info->{'Flash'} =~ /not fired/i ||
+		    $info->{'Flash'} =~ /Off/)  {
 			push @lines, "No flash";
-		} elsif ($info->{'Flash'} =~ /fired/i) {
+		} elsif ($info->{'Flash'} =~ /fired/i ||
+		         $info->{'Flash'} =~ /On/) {
 			push @lines, "Flash";
 		} else {
 			push @lines, $info->{'Flash'};