Date: 12 Nov 1998 21:07:36 -0000
Message-ID: <19981112210736.13182.qmail@hyperreal.org>
From: dougm@hyperreal.org
To: modperl-cvs@hyperreal.org
Subject: cvs commit: modperl/t/net/perl tie_table.pl
Sender: modperl-cvs-owner@apache.org
Precedence: bulk
Reply-To: modperl-cvs@apache.org

dougm       98/11/12 13:07:36

  Modified:    .        Changes
               src/modules/perl Table.xs
               t/net/perl tie_table.pl
  Log:
  new Apache::Table->new method
  
  Revision  Changes    Path
  1.194     +2 -0      modperl/Changes
  
  Index: Changes
  ===================================================================
  RCS file: /export/home/cvs/modperl/Changes,v
  retrieving revision 1.193
  retrieving revision 1.194
  diff -u -r1.193 -r1.194
  --- Changes	1998/11/12 20:04:49	1.193
  +++ Changes	1998/11/12 21:07:33	1.194
  @@ -8,6 +8,8 @@
   
   =item 1.16_01-dev
   
  +new Apache::Table->new method
  +
   two experimental options now on by default: 
   PERL_SECTIONS_SELF_BOOT and ERRSV_CAN_BE_HTTP
   
  
  
  
  1.3       +2 -5      modperl/src/modules/perl/Table.xs
  
  Index: Table.xs
  ===================================================================
  RCS file: /export/home/cvs/modperl/src/modules/perl/Table.xs,v
  retrieving revision 1.2
  retrieving revision 1.3
  diff -u -r1.2 -r1.3
  --- Table.xs	1998/10/30 02:40:03	1.2
  +++ Table.xs	1998/11/12 21:07:35	1.3
  @@ -80,7 +80,7 @@
       OUTPUT:
       RETVAL
   
  -Apache::Table
  +void
   new(class, r, nalloc=10)
       SV *class
       Apache r
  @@ -88,10 +88,7 @@
   
       CODE:
       if(!class) XSRETURN_UNDEF;
  -    RETVAL = ApacheTable_new(make_table(r->pool, nalloc));
  -
  -    OUTPUT:
  -    RETVAL
  +    ST(0) = mod_perl_tie_table(make_table(r->pool, nalloc));
   
   void
   DESTROY(self)
  
  
  
  1.10      +8 -1      modperl/t/net/perl/tie_table.pl
  
  Index: tie_table.pl
  ===================================================================
  RCS file: /export/home/cvs/modperl/t/net/perl/tie_table.pl,v
  retrieving revision 1.9
  retrieving revision 1.10
  diff -u -r1.9 -r1.10
  --- tie_table.pl	1998/11/04 02:36:20	1.9
  +++ tie_table.pl	1998/11/12 21:07:35	1.10
  @@ -7,7 +7,7 @@
   $r->send_http_header("text/plain");
   
   my $i = 0;
  -my $tests = 30;
  +my $tests = 32;
   print "1..$tests\n";
   
   my $headers_in = $r->headers_in;
  @@ -122,3 +122,10 @@
       test ++$i, UNIVERSAL::isa($hash_ref, 'HASH');
       test ++$i, $tab->isa('Apache::Table');
   }
  +
  +my $tabobj = Apache::Table->new($r);
  +test ++$i, $tabobj;
  +
  +$tabobj->{'a'} = 1;
  +
  +test ++$i, $tabobj->get('a');