[interchange-cvs] [SCM] Interchange branch, master, updated. REL_5_7_2-3-g47afbc2

[David Christensen]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Interchange".

The branch, master has been updated
       via  47afbc2d6b78c39076d50b0cc77c974dd480b063 (commit)
      from  9005f439862fd8d2deb9b3ca9849e0daf0a75d16 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 47afbc2d6b78c39076d50b0cc77c974dd480b063
Author: David Christensen <david at endpoint.com>
Date:   Thu Sep 24 23:40:30 2009 -0500

    Revert "WIP: fix for later Encodes + Safe"
    
    This reverts commit 9005f439862fd8d2deb9b3ca9849e0daf0a75d16.

-----------------------------------------------------------------------

Summary of changes and diff:
 lib/Vend/File.pm |   11 ++---------
 1 files changed, 2 insertions(+), 9 deletions(-)

diff --git a/lib/Vend/File.pm b/lib/Vend/File.pm
index 9d20432..e456bf6 100644
--- a/lib/Vend/File.pm
+++ b/lib/Vend/File.pm
@@ -236,15 +236,8 @@ sub readfile {
 		binmode(READIN) if $Global::Windows;
 
         if ($encoding) {
-            if ($encoding =~ /^utf-?8$/i) {
-                # if you say you're utf-8, we'll take you at your word...
-
-                binmode(READIN, ":utf8");
-            }
-            else {
-                local $PerlIO::encoding::fallback = Encode::PERLQQ();
-                binmode(READIN, ":encoding($encoding)");
-            }
+            local $PerlIO::encoding::fallback = Encode::PERLQQ();
+            binmode(READIN, ":encoding($encoding)");
         }
 
 		undef $/;


hooks/post-receive
-- 
Interchange