vadvs (vadvs) wrote in changelog,
vadvs
vadvs
changelog

[miscperl] r261: Change Apache::Constants with LJ::Reques...

Committer: vad
Change Apache::Constants with LJ::Request constants
U   branches/modernize2/Apache/CompressClientFixup.pm
Modified: branches/modernize2/Apache/CompressClientFixup.pm
===================================================================
--- branches/modernize2/Apache/CompressClientFixup.pm	2010-01-19 08:38:52 UTC (rev 260)
+++ branches/modernize2/Apache/CompressClientFixup.pm	2010-01-25 04:39:20 UTC (rev 261)
@@ -5,20 +5,17 @@
 
 use 5.004;
 use strict;
-use Apache::Constants qw(OK DECLINED);
-use Apache::Log();
-use Apache::URI();
 
 use vars qw($VERSION);
 $VERSION = "0.01";
 
 sub handler {
     #my $r = shift;
-    return DECLINED unless LJ::Request->header_in('Accept-Encoding') =~ /gzip/io;
+    return LJ::Request::DECLINED unless LJ::Request->header_in('Accept-Encoding') =~ /gzip/io;
 
     my $no_gzip = sub { 
         LJ::Request->unset_header_in('Accept-Encoding');
-        return OK;
+        return LJ::Request::OK;
     };
 
     my $ua = LJ::Request->header_in('User-Agent');

Tags: miscperl, pm, vadvs
Subscribe

  • Post a new comment

    Error

    Anonymous comments are disabled in this journal

    default userpic

    Your reply will be screened

    Your IP address will be recorded 

  • 0 comments