← Back to branch summary

~ubuntu-branches/ubuntu/oneiric/libapreq2/oneiric

« back to all changes in this revision

Viewing changes to glue/perl/xsbuilder/APR/Request/Param/Param.xs

  • Committer: Bazaar Package Importer
  • Author(s): Steinar H. Gunderson
  • Date: 2006-10-31 02:40:32 UTC
  • mfrom: (1.1.2 upstream)
  • Revision ID: james.westby@ubuntu.com-20061031024032-0uz12ks05bi4iqfl
Tags: 2.08-4
Fix typo; libapreq2 recommended libapreq2-mod-apreq2, which is obviously
wrong. Change to libapache2-mod-apreq2.

Show diffs side-by-side

added added

removed removed

Lines of Context:
glue/perl/xsbuilder/APR/Request/Param/Param.xs
201
201
        Perl_croak(aTHX_ "$param->upload_slurp($data): can't get upload length");
202
202
 
203
203
    RETVAL = len;
204
 
    SvUPGRADE(buffer, SVt_PV);
 
204
    (void)SvUPGRADE(buffer, SVt_PV);
205
205
    data = SvGROW(buffer, RETVAL + 1);
206
206
    data[RETVAL] = 0;
207
207
    SvCUR_set(buffer, RETVAL);
276
276
 
277
277
  CODE:
278
278
    if (param->upload == NULL)
279
 
        Perl_croak(aTHX_ "$param->upload_tempname($req): param has no upload brigade");
 
279
      Perl_croak(aTHX_
 
280
                 "$param->upload_tempname($req): param has no upload brigade"
 
281
                 );
280
282
    f = apreq_brigade_spoolfile(param->upload);
281
283
    if (f == NULL) {
282
284
        const char *path;
283
285
        s = apreq_temp_dir_get(req, &path);
284
286
        if (s != APR_SUCCESS)
285
 
            Perl_croak(aTHX_ "$param->upload_tempname($req): can't get temp_dir");
 
287
            Perl_croak(aTHX_ 
 
288
                       "$param->upload_tempname($req): can't get temp_dir"
 
289
                       );
286
290
        s = apreq_brigade_concat(param->upload->p, path, 0,
287
291
                                 param->upload, param->upload);
288
292
        if (s != APR_SUCCESS)
289
 
            Perl_croak(aTHX_ "$param->upload_tempname($req): can't make spool bucket");
 
293
            Perl_croak(aTHX_ 
 
294
                       "$param->upload_tempname($req): can't make spool bucket"
 
295
                       );
290
296
        f = apreq_brigade_spoolfile(param->upload);
291
297
    }
292
298
    s = apr_file_name_get(&RETVAL, f);
293
299
    if (s != APR_SUCCESS)
294
 
        Perl_croak(aTHX_ "$param->upload_link($file): can't get spool file name");
 
300
        Perl_croak(aTHX_ 
 
301
                   "$param->upload_link($file): can't get spool file name"
 
302
                   );
295
303
 
296
304
  OUTPUT:
297
305
    RETVAL