You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl-cvs@perl.apache.org by st...@apache.org on 2001/12/17 17:55:46 UTC
cvs commit: modperl-2.0/xs/APR/PerlIO apr_perlio.c
stas 01/12/17 08:55:46
Modified: xs/APR/PerlIO apr_perlio.c
Log:
- maintainer mode cleanups
Revision Changes Path
1.2 +3 -4 modperl-2.0/xs/APR/PerlIO/apr_perlio.c
Index: apr_perlio.c
===================================================================
RCS file: /home/cvs/modperl-2.0/xs/APR/PerlIO/apr_perlio.c,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- apr_perlio.c 2001/12/17 16:20:27 1.1
+++ apr_perlio.c 2001/12/17 16:55:46 1.2
@@ -31,7 +31,7 @@
*/
static IV PerlIOAPR_popped(PerlIO *f)
{
- PerlIOAPR *st = PerlIOSelf(f, PerlIOAPR);
+ //PerlIOAPR *st = PerlIOSelf(f, PerlIOAPR);
return 0;
}
@@ -41,12 +41,10 @@
const char *mode, int fd, int imode,
int perm, PerlIO *f, int narg, SV **args)
{
- AV *av_arg;
SV *arg = (narg > 0) ? *args : PerlIOArg;
PerlIOAPR *st;
const char *path;
apr_int32_t apr_flag;
- int len;
apr_status_t rc;
SV *sv;
@@ -105,7 +103,6 @@
static PerlIO *PerlIOAPR_dup(pTHX_ PerlIO *f, PerlIO *o,
CLONE_PARAMS *param, int flags)
{
- Size_t count;
apr_status_t rc;
if ( (f = PerlIOBase_dup(aTHX_ f, o, param, flags)) ) {
@@ -264,6 +261,8 @@
return 0;
case APR_EOF:
return 1;
+ default:
+ return -1;
}
}