/usr/lib/perl5/APR/Request/Param.pm is in libapache2-request-perl 2.13-3ubuntu2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 | #
# /*
# * *********** WARNING **************
# * This file generated by My::WrapXS/2.13
# * Any changes made here will be lost
# * ***********************************
# * 1. /usr/share/perl5/ExtUtils/XSBuilder/WrapXS.pm:52
# * 2. /usr/share/perl5/ExtUtils/XSBuilder/WrapXS.pm:2069
# * 3. Makefile.PL:193
# */
#
package APR::Request::Param;
require DynaLoader ;
use strict;
use warnings FATAL => 'all';
use vars qw{$VERSION @ISA} ;
push @ISA, 'DynaLoader' ;
$VERSION = '2.13';
bootstrap APR::Request::Param $VERSION ;
package APR::Request::Param;
use APR::Request;
use APR::Table;
use APR::Brigade;
sub upload_io {
tie local (*FH), "APR::Request::Brigade", shift->upload;
return bless *FH{IO}, "APR::Request::Brigade::IO";
}
sub upload_fh {
my $fname = shift->upload_tempname(@_);
open my $fh, "<", $fname
or die "Can't open ", $fname, ": ", $!;
binmode $fh;
return $fh;
}
package APR::Request::Brigade;
push our(@ISA), "APR::Brigade";
package APR::Request::Brigade::IO;
push our(@ISA), ();
1;
__END__
|