Date: Sunday December 30, 2001 @ 16:10
Author: matt
Update of /home/cvs/AxKit
In directory ted:/home/matt/Perl/AxKit
Modified Files:
AxKit.pm
Log Message:
make sure we return OK
Index: AxKit.pm
===================================================================
RCS file: /home/cvs/AxKit/AxKit.pm,v
retrieving revision 1.127
retrieving revision 1.128
diff -u -r1.127 -r1.128
--- AxKit.pm 2001/12/29 16:24:45 1.127
+++ AxKit.pm 2001/12/30 16:10:14 1.128
@@ -1,4 +1,4 @@
-# $Id: AxKit.pm,v 1.127 2001/12/29 16:24:45 matt Exp $
+# $Id: AxKit.pm,v 1.128 2001/12/30 16:10:14 matt Exp $
package AxKit;
use strict;
@@ -320,7 +320,7 @@
tie *STDOUT, 'Apache', $r;
}
- return deliver_to_browser($r);
+ deliver_to_browser($r);
};
my $E = $@;
unless ($E) {
@@ -664,6 +664,8 @@
$r->print( $r->pnotes('xml_string') );
}
}
+
+ return OK;
}
else {
AxKit::Debug(4, "writing xml string to cache and delivering to browser");
@@ -685,8 +687,6 @@
return $retval;
}
}
-
- return OK;
}
sub prep_exception {
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
