Changeset 538

Show
Ignore:
Timestamp:
05/02/07 23:36:31 (2 years ago)
Author:
bradfitz
Message:

+ * let parser_class be configured as a constructor option,
+ defaulting to XS if available, else regular. (unless
+ $ENV{NO_XS} is set, in which case the default is regular)

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/api/perl/ChangeLog

    r531 r538  
     1        * let parser_class be configured as a constructor option, 
     2          defaulting to XS if available, else regular.  (unless 
     3          $ENV{NO_XS} is set, in which case the default is regular) 
     4 
    152007-05-02: version 1.21 
    26 

  • trunk/api/perl/lib/Cache/Memcached.pm

    r531 r538  
    3333    bucketcount _single_sock _stime 
    3434    connect_timeout cb_connect_fail 
     35    parser_class 
    3536}; 
    3637 
    …… 
    7576    $self->{'stat_callback'} = $args->{'stat_callback'} || undef; 
    7677    $self->{'readonly'} = $args->{'readonly'}; 
     78    $self->{'parser_class'} = $args->{'parser_class'} || $parser_class; 
    7779 
    7880    # TODO: undocumented 
    …… 
    665667        } 
    666668 
    667         $parser{$_} = $parser_class->new($ret, $self->{namespace_len}, $finalize); 
     669        $parser{$_} = $self->{parser_class}->new($ret, $self->{namespace_len}, $finalize); 
    668670    } 
    669671