[interchange-cvs] interchange - heins modified lib/Vend/Dispatch.pm

[interchange-cvs at icdevgroup.org]

User:      heins
Date:      2009-03-23 13:34:19 GMT
Modified:  lib/Vend Dispatch.pm
Log:
* Discovered that "no encoding" is a pragma that is not at all scoped
  per-block. So I believe this may disable encoding no matter what. And
  since Encode still overloads regexes after it is called, it really is
  of no use.

Revision  Changes    Path
1.110                interchange/lib/Vend/Dispatch.pm


rev 1.110, prev_rev 1.109
Index: Dispatch.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/Dispatch.pm,v
retrieving revision 1.109
retrieving revision 1.110
diff -u -r1.109 -r1.110
--- Dispatch.pm	22 Mar 2009 19:32:31 -0000	1.109
+++ Dispatch.pm	23 Mar 2009 13:34:19 -0000	1.110
@@ -1,6 +1,6 @@
 # Vend::Dispatch - Handle Interchange page requests
 #
-# $Id: Dispatch.pm,v 1.109 2009-03-22 19:32:31 mheins Exp $
+# $Id: Dispatch.pm,v 1.110 2009-03-23 13:34:19 mheins Exp $
 #
 # Copyright (C) 2002-2009 Interchange Development Group
 # Copyright (C) 2002 Mike Heins <mike at perusion.net>
@@ -26,7 +26,7 @@
 package Vend::Dispatch;
 
 use vars qw($VERSION);
-$VERSION = substr(q$Revision: 1.109 $, 10);
+$VERSION = substr(q$Revision: 1.110 $, 10);
 
 use POSIX qw(strftime);
 use Vend::Util;
@@ -1222,18 +1222,12 @@
 
 my %source_keys_hide;
 
-sub disable_encoding {
-	no encoding;
-}
-
 sub dispatch {
 	my($http) = @_;
 	$H = $http;
 
 	adjust_cgi();
 
-	$Global::UTF8 or disable_encoding();
-
 	## If returns false then was a 404 no catalog or a delivered image
 	open_cat() or return 1;