[interchange-cvs] interchange - heins modified lib/Vend/Dispatch.pm
interchange-cvs at icdevgroup.org
interchange-cvs at icdevgroup.org
Mon Mar 23 13:34:19 UTC 2009
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;
More information about the interchange-cvs
mailing list