matts 2003/07/16 07:15:06
Modified: lib AxKit.pm
Log:
Explicitly call AxKit::open
Revision Changes Path
1.48 +5 -5 xml-axkit/lib/AxKit.pm
Index: AxKit.pm
===================================================================
RCS file: /home/cvs/xml-axkit/lib/AxKit.pm,v
retrieving revision 1.47
retrieving revision 1.48
diff -u -r1.47 -r1.48
--- AxKit.pm 16 Jul 2003 09:01:11 -0000 1.47
+++ AxKit.pm 16 Jul 2003 14:14:56 -0000 1.48
@@ -36,12 +36,12 @@
###############################################################
sub open(*$;$) {
- my $res = open($_[0],$_[1]);
+ my $res = CORE::open($_[0],$_[1]);
binmode($_[0],($] >= 5.008?(':'.($_[2]||'utf8')):()));
return $res;
}
sub sysopen(*$$;$) {
- my $res = sysopen($_[0],$_[1],$_[2]);
+ my $res = CORE::sysopen($_[0],$_[1],$_[2]);
binmode($_[0],($] >= 5.008?(':'.($_[2]||'utf8')):()));
return $res;
}
@@ -712,7 +712,7 @@
}
}
my $fh = Apache->gensym();
- if (open($fh, ">".$interm_prefix.$interm_count)) {
+ if (AxKit::open($fh, ">".$interm_prefix.$interm_count)) {
print $fh ${$provider->get_strref};
close($fh);
$interm_count++;
@@ -773,7 +773,7 @@
if ($interm_prefix) {
my $fh = Apache->gensym();
- if (open($fh, '>'.$interm_prefix.$interm_count)) {
+ if (AxKit::open($fh, '>'.$interm_prefix.$interm_count)) {
my $xmlstr;
if ($AxKit::Cfg->DebugTidy) {
eval {
