From 86ad645e65c1a448941453f9dcbf3df599db1e21 Mon Sep 17 00:00:00 2001 From: "Steinar H. Gunderson" Date: Mon, 31 Jul 2006 14:24:25 +0200 Subject: [PATCH 1/1] Yet more flash tweaks. --- perl/Sesse/pr0n/Common.pm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) 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'}; -- 2.39.2