jwalt 2003/06/18 07:11:56
Modified: lib/Apache/AxKit Cache.pm
lib/Apache/AxKit/Language XSP.pm
Log:
- fix 5.005 compatibility
Revision Changes Path
1.11 +2 -1 xml-axkit/lib/Apache/AxKit/Cache.pm
Index: Cache.pm
===================================================================
RCS file: /home/cvs/xml-axkit/lib/Apache/AxKit/Cache.pm,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -r1.10 -r1.11
--- Cache.pm 18 Jun 2003 13:30:07 -0000 1.10
+++ Cache.pm 18 Jun 2003 14:11:56 -0000 1.11
@@ -9,6 +9,7 @@
use Digest::MD5 ();
use Compress::Zlib qw(gzopen);
use Fcntl qw(:flock O_RDWR O_WRONLY O_CREAT O_RDONLY);
+BEGIN { $INC{'bytes.pm'}++ if $] < 5.006 }
use bytes;
# use vars qw/$COUNT/;
1.41 +4 -1 xml-axkit/lib/Apache/AxKit/Language/XSP.pm
Index: XSP.pm
===================================================================
RCS file: /home/cvs/xml-axkit/lib/Apache/AxKit/Language/XSP.pm,v
retrieving revision 1.40
retrieving revision 1.41
diff -u -r1.40 -r1.41
--- XSP.pm 18 Jun 2003 13:30:07 -0000 1.40
+++ XSP.pm 18 Jun 2003 14:11:56 -0000 1.41
@@ -9,6 +9,7 @@
use Apache::AxKit::Exception;
use Apache::AxKit::Cache;
use Fcntl;
+BEGIN { $INC{'utf8.pm'}++ if $] < 5.006 }
use utf8;
use vars qw/@ISA/;
@@ -138,6 +139,8 @@
$interm_prefix =~ s/[^0-9a-zA-Z.,_|-]/_/g;
$interm_prefix =
$AxKit::Cfg->TraceIntermediate.'/'.$interm_prefix;
my $fh = Apache->gensym();
+ # this is duplicated work: the cache has it as well, but with a
+ # different filename and hard to find.
if (AxKit::open($fh, '>'.$interm_prefix.'.XSP')) {
print($fh $to_eval);
} else {
