joes 2004/07/02 10:08:30
Modified: glue/perl/xsbuilder/Apache/Upload Apache__Upload.h
Log:
Rename tempfile tempname to match docs
Revision Changes Path
1.11 +7 -7
httpd-apreq-2/glue/perl/xsbuilder/Apache/Upload/Apache__Upload.h
Index: Apache__Upload.h
===================================================================
RCS file:
/home/cvs/httpd-apreq-2/glue/perl/xsbuilder/Apache/Upload/Apache__Upload.h,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -r1.10 -r1.11
--- Apache__Upload.h 2 Jul 2004 04:40:08 -0000 1.10
+++ Apache__Upload.h 2 Jul 2004 17:08:30 -0000 1.11
@@ -370,7 +370,7 @@
XSRETURN(1);
}
-static XS(apreq_xs_upload_tempfile)
+static XS(apreq_xs_upload_tempname)
{
dXSARGS;
MAGIC *mg;
@@ -381,10 +381,10 @@
const char *path;
if (items != 1 || !SvROK(ST(0)))
- Perl_croak(aTHX_ "Usage: $upload->temp_file()");
+ Perl_croak(aTHX_ "Usage: $upload->tempname()");
if (!(mg = mg_find(SvRV(ST(0)), PERL_MAGIC_ext)))
- Perl_croak(aTHX_ "$upload->temp_file(): can't find env");
+ Perl_croak(aTHX_ "$upload->tempname(): can't find env");
env = mg->mg_ptr;
bb = apreq_xs_sv2param(ST(0))->bb;
@@ -398,17 +398,17 @@
s = apreq_file_mktemp(&file, apreq_env_pool(env), tmpdir);
if (s != APR_SUCCESS) {
- apreq_log(APREQ_ERROR s, env, "apreq_xs_upload_temp_file:"
+ apreq_log(APREQ_ERROR s, env, "apreq_xs_upload_tempname:"
"apreq_file_mktemp failed");
- Perl_croak(aTHX_ "$upload->temp_file: can't make tempfile");
+ Perl_croak(aTHX_ "$upload->tempname: can't make tempfile");
}
s = apreq_brigade_fwrite(file, &len, bb);
if (s != APR_SUCCESS) {
- apreq_log(APREQ_ERROR s, env, "apreq_xs_upload_fh:"
+ apreq_log(APREQ_ERROR s, env, "apreq_xs_upload_tempname:"
"apreq_brigade_fwrite failed");
- Perl_croak(aTHX_ "$upload->temp_file: can't write brigade to
tempfile");
+ Perl_croak(aTHX_ "$upload->tempname: can't write brigade to
tempfile");
}
last = apr_bucket_file_create(file, len, 0, bb->p, bb->bucket_alloc);