perl-docs-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From s...@apache.org
Subject cvs commit: modperl-docs/src/docs/2.0/user/porting compat.pod
Date Wed, 07 Jul 2004 21:52:25 GMT
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: docs-cvs-unsubscribe@perl.apache.org
For additional commands, e-mail: docs-cvs-help@perl.apache.org


Mime
View raw message