cvs commit: modperl-2.0/t/protocol eliza.t

[stas]

stas01/09/18 08:20:12

  Modified:t/protocol eliza.t
  Log:
  - test_module has gone, s/test_module/have_module/
  
  Revision  ChangesPath
  1.2   +1 -1  modperl-2.0/t/protocol/eliza.t
  
  Index: eliza.t
  ===
  RCS file: /home/cvs/modperl-2.0/t/protocol/eliza.t,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -r1.1 -r1.2
  --- eliza.t   2001/09/06 02:45:13 1.1
  +++ eliza.t   2001/09/18 15:20:11 1.2
  @@ -10,7 +10,7 @@
   'I feel like writing some tests today, you?',
   'good bye');
   
  -plan tests = 1 + @test_strings, test_module 'Chatbot::Eliza';
  +plan tests = 1 + @test_strings, have_module 'Chatbot::Eliza';
   
   my $socket = Apache::TestRequest::vhost_socket('TestProtocol::eliza');
   
  
  
  

cvs commit: modperl-2.0/util apr_arg_check.pl apr_pool_check.pl cvsize.pl source_stats.pl

[stas]

stas01/09/18 09:12:51

  Modified:util apr_arg_check.pl apr_pool_check.pl cvsize.pl
source_stats.pl
  Log:
  adding shebang and making most of the utils executable, since they can use
  generic perl
  
  Revision  ChangesPath
  1.2   +2 -0  modperl-2.0/util/apr_arg_check.pl
  
  Index: apr_arg_check.pl
  ===
  RCS file: /home/cvs/modperl-2.0/util/apr_arg_check.pl,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -r1.1 -r1.2
  --- apr_arg_check.pl  2001/03/04 23:43:36 1.1
  +++ apr_arg_check.pl  2001/09/18 16:12:51 1.2
  @@ -1,3 +1,5 @@
  +#!/usr/bin/perl -w
  +
   use lib qw(lib);
   
   use strict;
  
  
  
  1.2   +2 -0  modperl-2.0/util/apr_pool_check.pl
  
  Index: apr_pool_check.pl
  ===
  RCS file: /home/cvs/modperl-2.0/util/apr_pool_check.pl,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -r1.1 -r1.2
  --- apr_pool_check.pl 2001/03/16 02:32:43 1.1
  +++ apr_pool_check.pl 2001/09/18 16:12:51 1.2
  @@ -1,3 +1,5 @@
  +#!/usr/bin/perl -w
  +
   #check which apr_ functions do not have access to a pool
   
   use lib qw(lib);
  
  
  
  1.3   +2 -0  modperl-2.0/util/cvsize.pl
  
  Index: cvsize.pl
  ===
  RCS file: /home/cvs/modperl-2.0/util/cvsize.pl,v
  retrieving revision 1.2
  retrieving revision 1.3
  diff -u -r1.2 -r1.3
  --- cvsize.pl 2001/09/18 16:05:16 1.2
  +++ cvsize.pl 2001/09/18 16:12:51 1.3
  @@ -1,3 +1,5 @@
  +#!/usr/bin/perl -w
  +
   #get an idea of how much space the XS interface will eat
   #build/source_scan.pl must be run first
   #see pod/modperl_sizeof.pod
  
  
  
  1.2   +2 -0  modperl-2.0/util/source_stats.pl
  
  Index: source_stats.pl
  ===
  RCS file: /home/cvs/modperl-2.0/util/source_stats.pl,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -r1.1 -r1.2
  --- source_stats.pl   2001/03/04 23:38:22 1.1
  +++ source_stats.pl   2001/09/18 16:12:51 1.2
  @@ -1,3 +1,5 @@
  +#!/usr/bin/perl -w
  +
   use lib qw(lib);
   
   use strict;
  
  
  

cvs commit: modperl-2.0/util perl_bloat.pl

[stas]

stas01/09/18 09:16:18

  Added:   util perl_bloat.pl
  Log:
  adding a useful utility that reports how much bloat some perl code adds
  
  Revision  ChangesPath
  1.1  modperl-2.0/util/perl_bloat.pl
  
  Index: perl_bloat.pl
  ===
  #!/usr/bin/perl -w
  
  use GTop ();
  
  my $gtop = GTop-new;
  my $before = $gtop-proc_mem($$)-size;
  
  for (@ARGV) {
  if (eval require $_) {
  eval {
  $_-import;
  };
  }
  else {
  eval $_;
  die $@ if $@;
  }
  }
  
  my $after = $gtop-proc_mem($$)-size;
  
  printf @ARGV added %s\n, GTop::size_string($after - $before);
  
  
  
  
  
  

cvs commit: modperl-2.0/build - New directory

[stas]

stas01/09/18 08:54:11

  modperl-2.0/build - New directory