From 477d42570558e6d4f197d80ac345d20fbcaef789 Mon Sep 17 00:00:00 2001 From: "Steinar H. Gunderson" Date: Sun, 30 Jul 2006 16:12:05 +0200 Subject: [PATCH] Improve flash/no flash detection. --- 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 d03f46f..c6f1c5b 100644 --- a/perl/Sesse/pr0n/Common.pm +++ b/perl/Sesse/pr0n/Common.pm @@ -438,9 +438,11 @@ sub make_infobox { } if (defined($info->{'Flash'})) { - if ($info->{'Flash'} =~ /did not fire/ || $info->{'Flash'} =~ /No Flash/) { + if ($info->{'Flash'} =~ /did not fire/i || + $info->{'Flash'} =~ /no flash/i || + $info->{'Flash'} =~ /not fired/i) { push @lines, "No flash"; - } elsif ($info->{'Flash'} =~ /fired/) { + } elsif ($info->{'Flash'} =~ /fired/i) { push @lines, "Flash"; } else { push @lines, $info->{'Flash'}; -- 2.39.2