Changeset 660

Show
Ignore:
Timestamp:
06/28/02 04:26:59
Author:
miyagawa
Message:

0.09

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved
  • PHP-Session/trunk/Changes

    r658 r660  
    11Revision history for Perl extension PHP::Session 
     2 
     30.09  Fri Jun 28 04:26:31 JST 2002 
     4        * Fixed bug in newline handling 
     5          (Thanks to Lupe Christoph) 
    26 
    370.08  Tue Jun  4 00:08:40 JST 2002 
  • PHP-Session/trunk/lib/PHP/Session.pm

    r657 r660  
    33use strict; 
    44use vars qw($VERSION); 
    5 $VERSION = 0.08
     5$VERSION = 0.09
    66 
    77use vars qw(%SerialImpl); 
     
    2222        save_path         => '/tmp', 
    2323        serialize_handler => 'php', 
    24         create            =>
     24        create            => 0
    2525    ); 
    2626    $opt ||= {}; 
  • PHP-Session/trunk/lib/PHP/Session/Serializer/PHP.pm

    r573 r660  
    3434sub decode { 
    3535    my($self, $data) = @_; 
    36     while ($data and $data =~ s/^$var_re(?:$str_re|$int_re|$dbl_re|$arr_re|$obj_re|$nul_re|$bool_re)//) { 
     36    while ($data and $data =~ s/^$var_re(?:$str_re|$int_re|$dbl_re|$arr_re|$obj_re|$nul_re|$bool_re)//s) { 
    3737        my @match = ($1, $2, $3, $4, $5, $6, $7, $8); 
    3838        my @literal = grep defined, @match[STRING, INTEGER, DOUBLE, BOOLEAN]; 
     
    6161sub do_decode { 
    6262    my($self, $data) = @_; 
    63     $data =~ s/^{(.*)}$/$1/
     63    $data =~ s/^{(.*)}$/$1/s
    6464    my @data; 
    6565    while ($data and $data =~ s/^($str_re|$int_re|$dbl_re|$arr_re|$obj_re|$nul_re|$bool_re)//) {