perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From do...@hyperreal.org
Subject cvs commit: modperl/src/modules/perl File.xs
Date Sun, 08 Nov 1998 01:15:20 GMT
dougm       98/11/07 17:15:20

  Modified:    t/net/perl file.pl
               src/modules/perl File.xs
  Log:
  turns out the C stdio tmpfile() is bloody slow, if folks want it,
  they can use IO::File
  
  Revision  Changes    Path
  1.2       +7 -7      modperl/t/net/perl/file.pl
  
  Index: file.pl
  ===================================================================
  RCS file: /export/home/cvs/modperl/t/net/perl/file.pl,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -r1.1 -r1.2
  --- file.pl	1998/09/26 16:07:13	1.1
  +++ file.pl	1998/11/08 01:15:19	1.2
  @@ -10,16 +10,16 @@
   }
   
   require Apache::File;
  -print "1..7\n";
  +print "1..5\n";
   my $fh = Apache::File->new;
   test ++$i, $fh;
   test ++$i, $fh->open($0);
   test ++$i, !$fh->open("$0.nochance");
   test ++$i, !Apache::File->new("$0.yeahright");
  -my $tmp = Apache::File->tmp;
  -test ++$i, $tmp;
  -++$i;
  -print $tmp "ok $i\n";
  -seek $tmp, 0, 0;
  -print scalar(<$tmp>);
  +#my $tmp = Apache::File->tmp;
  +#test ++$i, $tmp;
  +#++$i;
  +#print $tmp "ok $i\n";
  +#seek $tmp, 0, 0;
  +#print scalar(<$tmp>);
   test ++$i, Apache::File->tmpfile;
  
  
  
  1.4       +7 -10     modperl/src/modules/perl/File.xs
  
  Index: File.xs
  ===================================================================
  RCS file: /export/home/cvs/modperl/src/modules/perl/File.xs,v
  retrieving revision 1.3
  retrieving revision 1.4
  diff -u -r1.3 -r1.4
  --- File.xs	1998/10/26 20:55:03	1.3
  +++ File.xs	1998/11/08 01:15:20	1.4
  @@ -86,6 +86,9 @@
   
   PROTOTYPES: DISABLE
   
  +BOOT:
  +    items = items; /*avoid warning*/ 
  +
   void
   ApacheFile_new(class, filename=Nullsv)
       char *class
  @@ -107,6 +110,8 @@
       SV *self
       SV *filename
   
  +#if 0
  +
   void
   ApacheFile_tmp(self)
       SV *self
  @@ -122,6 +127,8 @@
       else
           XPUSHs(RETVAL);
   
  +#endif
  +
   bool
   ApacheFile_close(self)
       SV *self
  @@ -200,13 +207,3 @@
   ap_discard_request_body(r)
       Apache r
   
  -FILE *
  -ap_fopen(r, name, mode="r")
  -    Apache r
  -    const char *name
  -    const char *mode
  -
  -int
  -ap_fclose(r, fd)
  -    Apache r
  -    FILE *fd
  
  
  

Mime
View raw message