stas 2004/07/07 14:52:25
Modified: src/docs/2.0/api/Apache RequestUtil.pod
src/docs/2.0/user/porting compat.pod
Log:
slurp_filename() returns a SCALAR ref
Revision Changes Path
1.22 +5 -3 modperl-docs/src/docs/2.0/api/Apache/RequestUtil.pod
Index: RequestUtil.pod
===================================================================
RCS file: /home/cvs/modperl-docs/src/docs/2.0/api/Apache/RequestUtil.pod,v
retrieving revision 1.21
retrieving revision 1.22
diff -u -u -r1.21 -r1.22
--- RequestUtil.pod 6 Jul 2004 22:06:04 -0000 1.21
+++ RequestUtil.pod 7 Jul 2004 21:52:24 -0000 1.22
@@ -74,7 +74,7 @@
$r->set_basic_credentials($username, $password);
# slurp the contents of $r->filename
- $content = $r->slurp_filename($tainted);
+ my $content = ${ $r->slurp_filename() };
@@ -1015,7 +1015,7 @@
Slurp the contents of C<$r-E<gt>filename>:
- $content = $r->slurp_filename($tainted);
+ $content_ref = $r->slurp_filename($tainted);
=over 4
@@ -1038,7 +1038,9 @@
and friends, because the CGI scripts that it reads are considered safe
(you could just as well C<require()> them).
-=item ret: C<$content> ( string )
+=item ret: C<$content_ref> ( SCALAR ref )
+
+A reference to a string with the contents
=item since: 1.99_10
1.55 +1 -1 modperl-docs/src/docs/2.0/user/porting/compat.pod
Index: compat.pod
===================================================================
RCS file: /home/cvs/modperl-docs/src/docs/2.0/user/porting/compat.pod,v
retrieving revision 1.54
retrieving revision 1.55
diff -u -u -r1.54 -r1.55
--- compat.pod 5 Jul 2004 04:37:20 -0000 1.54
+++ compat.pod 7 Jul 2004 21:52:25 -0000 1.55
@@ -1205,7 +1205,7 @@
Now, you would write that as:
use Apache::RequestUtil ();
- $content = $r->slurp_filename();
+ my $content = ${ $r->slurp_filename() };
=head2 C<tmpfile()>
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
