From 7640dcd7fd8e4d8b1cf2c116bb7bbe08ac6f503a Mon Sep 17 00:00:00 2001
From: legatvs <legatvs@gmail.com>
Date: Sat, 18 Jul 2009 14:59:02 +0300
Subject: [PATCH] Fix: file suffix for CCTV (.x-shockwave-flash -> .flv).

---
 CHANGES           | 1 +
 lib/clive/Curl.pm | 3 ++-
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/CHANGES b/CHANGES
index 9cdc09b..97414e0 100644
--- a/CHANGES
+++ b/CHANGES
@@ -13,6 +13,7 @@ Version 2.2.3
     1. ~/.clivelast -> ~/.cache/clive/last
     2. ~/.clivecache -> ~/.cache/clive/cache
   * Change: If HOME environment variable undefined, assume current workdir
+  * Fix: file suffix for CCTV (.x-shockwave-flash -> .flv)
   * Fix: Remove "see examples" from pod markup (closes issue #30)
   * Fix: Prevent ".$suffix" output filenames
     1. Use $id if $title is empty and %i was not defined in --filename-format
diff --git a/lib/clive/Curl.pm b/lib/clive/Curl.pm
index e2c6a21..89f13fe 100644
--- a/lib/clive/Curl.pm
+++ b/lib/clive/Curl.pm
@@ -168,7 +168,8 @@ sub queryFileLength {
                 my $suffix = $1;    # Default to whatever was matched.
                 if (   $1 =~ /octet/
                     || $1 =~ /x\-flv/
-                    || $1 =~ /plain/ )
+                    || $1 =~ /plain/
+                    || $1 =~ /flash/ )
                 {
 
                     # Otherwise use "flv" for the above exceptions.
-- 
2.11.4.GIT