perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From do...@apache.org
Subject cvs commit: modperl/t/net/perl api.pl
Date Fri, 06 Jul 2001 16:09:53 GMT
dougm       01/07/06 09:09:53

  Modified:    .        Changes
               src/modules/perl Apache.xs perl_PL.h
               t/net/perl api.pl
  Log:
  fix -[TB] file tests against $r->finfo
  
  Revision  Changes    Path
  1.603     +3 -0      modperl/Changes
  
  Index: Changes
  ===================================================================
  RCS file: /home/cvs/modperl/Changes,v
  retrieving revision 1.602
  retrieving revision 1.603
  diff -u -r1.602 -r1.603
  --- Changes	2001/07/06 13:44:34	1.602
  +++ Changes	2001/07/06 16:09:52	1.603
  @@ -10,6 +10,9 @@
   
   =item 1.25_01-dev
   
  +fix -[TB] file tests against $r->finfo, thanks to Geoffrey Young for
  +the spot
  +
   Apache::SizeLimit enhancements [Perrin Harkins <perrin@elem.com>]:
   - Added support for minimum shared memory and maximum unshared memory
   settings.
  
  
  
  1.124     +2 -0      modperl/src/modules/perl/Apache.xs
  
  Index: Apache.xs
  ===================================================================
  RCS file: /home/cvs/modperl/src/modules/perl/Apache.xs,v
  retrieving revision 1.123
  retrieving revision 1.124
  diff -u -r1.123 -r1.124
  --- Apache.xs	2001/06/14 05:26:28	1.123
  +++ Apache.xs	2001/07/06 16:09:53	1.124
  @@ -1956,9 +1956,11 @@
       statcache = r->finfo;
       if (r->finfo.st_mode) {
   	laststatval = 0;
  +        sv_setpv(statname, r->filename);
       }
       else {
   	laststatval = -1;
  +        sv_setpv(statname, "");
       }
       if(GIMME_V == G_VOID) XSRETURN_UNDEF;
       RETVAL = newRV_noinc((SV*)gv_fetchpv("_", TRUE, SVt_PVIO));
  
  
  
  1.8       +3 -0      modperl/src/modules/perl/perl_PL.h
  
  Index: perl_PL.h
  ===================================================================
  RCS file: /home/cvs/modperl/src/modules/perl/perl_PL.h,v
  retrieving revision 1.7
  retrieving revision 1.8
  diff -u -r1.7 -r1.8
  --- perl_PL.h	1999/01/18 03:26:19	1.7
  +++ perl_PL.h	2001/07/06 16:09:53	1.8
  @@ -19,6 +19,9 @@
   #ifndef laststatval
   #define laststatval PL_laststatval
   #endif
  +#ifndef statname
  +#define statname PL_statname
  +#endif
   #ifndef rs
   #define rs PL_rs
   #endif
  
  
  
  1.47      +3 -1      modperl/t/net/perl/api.pl
  
  Index: api.pl
  ===================================================================
  RCS file: /home/cvs/modperl/t/net/perl/api.pl,v
  retrieving revision 1.46
  retrieving revision 1.47
  diff -u -r1.46 -r1.47
  --- api.pl	2001/06/14 04:36:20	1.46
  +++ api.pl	2001/07/06 16:09:53	1.47
  @@ -18,7 +18,7 @@
   
   my $tests = 74;
   my $is_win32 = WIN32;
  -$tests += 2 unless $is_win32;
  +$tests += 4 unless $is_win32;
   my $test_get_set = Apache->can('set_handlers') && ($tests += 4);
   my $test_custom_response = (MODULE_MAGIC_NUMBER >= 19980324) && ($tests += 4);
   my $test_dir_config = $INC{'Apache/TestDirectives.pm'} && ($tests += 9);
  @@ -68,6 +68,8 @@
     print "Apache.pm == $ft_s, $0 == $ft_def\n";
     test ++$i, $ft_s != $ft_def;
     test ++$i, (-s $r->finfo) == $ft_def;
  +  test ++$i, -T $r->finfo;
  +  test ++$i, not -B $r->finfo;
   }
   
   my $the_request = $r->the_request;
  
  
  

Mime
View raw message