Sign in
apache
/
mod_perl
/
refs/heads/apache2-rename-unstable
/
.
/
ModPerl-Registry
/
t
/
cgi-bin
/
r_inherited.pl
blob: 0bab26eebefa150623a045c1086c1c5a0970ff67 [
file
] [
log
] [
blame
]
use
strict
;
use
warnings
;
# this script shouldn't work
# this is to test that $r is not in the scope from the function that
# has compiled this script in the registry module
# my $r = shift;
$r
->
content_type
(
'text/plain'
);
$r
->
print
(
$r
->
args
);