cvs commit: embperl Changes.pod Embperl.pm Embperl.pod EmbperlD.pod README ep.h epio.c epmain.c epnames.h

2003-01-22 Thread richter 
richter 2003/01/22 00:23:36

  Modified:.Tag: ep1 Changes.pod Embperl.pm Embperl.pod
EmbperlD.pod README ep.h epio.c epmain.c epnames.h
  Log:
  1.3.5
  
  Revision  ChangesPath
  No   revision
  
  
  No   revision
  
  
  1.188.2.1 +4 -0  embperl/Changes.pod
  
  Index: Changes.pod
  ===
  RCS file: /home/cvs/embperl/Changes.pod,v
  retrieving revision 1.188
  retrieving revision 1.188.2.1
  diff -u -r1.188 -r1.188.2.1
  --- Changes.pod   23 May 2002 03:38:44 -  1.188
  +++ Changes.pod   22 Jan 2003 08:23:34 -  1.188.2.1
  @@ -1,5 +1,9 @@
   =pod
   
  +=head1 1.3.5 (RELEASE)   23. Dec 2002
  +
  +   - Runs now with Perl 5.8.0. Thanks to Angus Lees who 
  + backported the 5.8.0 patches from 2.0.
  - Fixed Path search problem. Reported by Gavin Carr.
   
   =head1 1.3.4 (RELEASE)   5. Dec 2001
  
  
  
  1.177.2.1 +2 -2  embperl/Embperl.pm
  
  Index: Embperl.pm
  ===
  RCS file: /home/cvs/embperl/Embperl.pm,v
  retrieving revision 1.177
  retrieving revision 1.177.2.1
  diff -u -r1.177 -r1.177.2.1
  --- Embperl.pm23 May 2002 03:36:15 -  1.177
  +++ Embperl.pm22 Jan 2003 08:23:34 -  1.177.2.1
  @@ -64,7 +64,7 @@
   @ISA = qw(Exporter DynaLoader);
   
   
  -$VERSION = '1.3.4';
  +$VERSION = '1.3.5';
   
   # HTML::Embperl cannot be bootstrapped in nonlazy mode except
   # under mod_perl, because its dependencies import symbols like ap_palloc
  
  
  
  1.79.2.1  +6 -2  embperl/Embperl.pod
  
  Index: Embperl.pod
  ===
  RCS file: /home/cvs/embperl/Embperl.pod,v
  retrieving revision 1.79
  retrieving revision 1.79.2.1
  diff -u -r1.79 -r1.79.2.1
  --- Embperl.pod   5 Dec 2001 07:32:54 -   1.79
  +++ Embperl.pod   22 Jan 2003 08:23:34 -  1.79.2.1
  @@ -2588,7 +2588,9 @@
   
   =item perl5.7.2
   
  -=item apache_1.3.0 - apache_1.3.22
  +=item perl5.8.0
  +
  +=item apache_1.3.0 - apache_1.3.27
   
   =item apache_ssl (Ben SSL)
   
  @@ -2614,7 +2616,9 @@
   
   =item perl5.6.1
   
  -=item apache_1.3.0 - apache_1.3.22
  +=item perl5.8.0
  +
  +=item apache_1.3.0 - apache_1.3.27
   
   =back
   
  
  
  
  1.51.2.1  +6 -2  embperl/EmbperlD.pod
  
  Index: EmbperlD.pod
  ===
  RCS file: /home/cvs/embperl/EmbperlD.pod,v
  retrieving revision 1.51
  retrieving revision 1.51.2.1
  diff -u -r1.51 -r1.51.2.1
  --- EmbperlD.pod  5 Dec 2001 07:32:54 -   1.51
  +++ EmbperlD.pod  22 Jan 2003 08:23:34 -  1.51.2.1
  @@ -2557,7 +2557,9 @@
   
   =item perl 5.7.2
   
  -=item apache_1.3.0 - apache_1.3.22
  +=item perl5.8.0
  +
  +=item apache_1.3.0 - apache_1.3.27
   
   =item apache_ssl (Ben SSL)
   
  @@ -2584,7 +2586,9 @@
   
   =item perl 5.6.1
   
  -=item apache_1.3.0 - apache_1.3.22
  +=item perl5.8.0
  +
  +=item apache_1.3.0 - apache_1.3.27
   
   =back
   
  
  
  
  1.31.2.1  +6 -4  embperl/README
  
  Index: README
  ===
  RCS file: /home/cvs/embperl/README,v
  retrieving revision 1.31
  retrieving revision 1.31.2.1
  diff -u -r1.31 -r1.31.2.1
  --- README23 May 2002 03:36:15 -  1.31
  +++ README22 Jan 2003 08:23:35 -  1.31.2.1
  @@ -2,7 +2,7 @@
   HTML::Embperl - Building dynamic Websites with Perl
   ---
   
  -Copyright (c) 1997-2001 Gerald Richter / ecos gmbh (www.ecos.de)
  +Copyright (c) 1997-2002 Gerald Richter / ecos gmbh (www.ecos.de)
   
   You may distribute under the terms of either the GNU General Public 
   License or the Artistic License, as specified in the Perl README file.
  @@ -142,7 +142,8 @@
   perl5.6.1
   perl5.7.1
   perl5.7.2
  -apache_1.3.0 - apache_1.3.22
  +perl5.8.0
  +apache_1.3.0 - apache_1.3.27
   apache + mod_ssl
   apache_ssl (Ben SSL)
   Stronghold 2.2
  @@ -154,7 +155,8 @@
   perl5.005_xx 
   perl5.6.0
   perl5.6.1
  -apache_1.3.0 - apache_1.3.22
  +perl5.8.0
  +apache_1.3.0 - apache_1.3.27
   
   on Windows 95/98 with
   
  
  
  
  1.40.2.1  +17 -7 embperl/ep.h
  
  Index: ep.h
  ===
  RCS file: /home/cvs/embperl/ep.h,v
  retrieving revision 1.40
  retrieving revision 1.40.2.1
  diff -u -r1.40 -r1.40.2.1
  --- ep.h  2 Nov 2001 10:03:48 -   1.40
  +++ ep.h  22 Jan 2003 08:23:35 -  1.40.2.1
  @@ -21,7 +21,15 @@
   #include 
   #include 
   
  -#if !defined(PERLIO_IS_STDIO)
  +#ifndef PERL_VERSION
  +#include 
  +#ifndef PERL_VERSION
  +#define PERL_VERSION PATCHLEVEL
  +#define PERL_SUBVERSION SUBVERSION
  +#endif
  +#endif
  +
  +#if !defined(PERLIO_IS_STDIO) && PERL_VERSION < 8
   #define PERL

cvs commit: embperl Changes.pod Embperl.pm test.pl

2003-01-22 Thread richter 
richter 2003/01/22 01:08:20

  Modified:.Tag: ep1 Changes.pod Embperl.pm test.pl
  Log:
  1.3.6: fixed Perl 5.8.0 unicode problems
  
  Revision  ChangesPath
  No   revision
  
  
  No   revision
  
  
  1.188.2.2 +7 -0  embperl/Changes.pod
  
  Index: Changes.pod
  ===
  RCS file: /home/cvs/embperl/Changes.pod,v
  retrieving revision 1.188.2.1
  retrieving revision 1.188.2.2
  diff -u -r1.188.2.1 -r1.188.2.2
  --- Changes.pod   22 Jan 2003 08:23:34 -  1.188.2.1
  +++ Changes.pod   22 Jan 2003 09:08:19 -  1.188.2.2
  @@ -1,5 +1,12 @@
   =pod
   
  +=head1 1.3.6 (RELEASE)   22. Jan 2003
  +
  +   - Fixed unicode problems in make test with Perl 5.8.0. With
  + support from Robert.
  +   - Fixed warning about missing CLOSE method with Perl 5.8.0
  + Reported by Rajesh Kumar Mallah.
  +
   =head1 1.3.5 (RELEASE)   23. Dec 2002
   
  - Runs now with Perl 5.8.0. Thanks to Angus Lees who 
  
  
  
  1.177.2.2 +15 -2 embperl/Embperl.pm
  
  Index: Embperl.pm
  ===
  RCS file: /home/cvs/embperl/Embperl.pm,v
  retrieving revision 1.177.2.1
  retrieving revision 1.177.2.2
  diff -u -r1.177.2.1 -r1.177.2.2
  --- Embperl.pm22 Jan 2003 08:23:34 -  1.177.2.1
  +++ Embperl.pm22 Jan 2003 09:08:19 -  1.177.2.2
  @@ -64,7 +64,7 @@
   @ISA = qw(Exporter DynaLoader);
   
   
  -$VERSION = '1.3.5';
  +$VERSION = '1.3.6';
   
   # HTML::Embperl cannot be bootstrapped in nonlazy mode except
   # under mod_perl, because its dependencies import symbols like ap_palloc
  @@ -287,6 +287,13 @@
   my $fmt = shift ;
   HTML::Embperl::log(sprintf ($fmt, @_)) ;
   }
  +
  +sub CLOSE
  +
  + {
  + }
  +
  +
   }
   
   
  @@ -323,6 +330,12 @@
   my $fmt = shift ;
   HTML::Embperl::output(sprintf ($fmt, @_)) ;
   }
  +
  +sub CLOSE
  +
  + {
  + }
  +
   }
   
   
  
  
  
  1.118.2.1 +4 -1  embperl/test.pl
  
  Index: test.pl
  ===
  RCS file: /home/cvs/embperl/test.pl,v
  retrieving revision 1.118
  retrieving revision 1.118.2.1
  diff -u -r1.118 -r1.118.2.1
  --- test.pl   4 Dec 2001 20:09:20 -   1.118
  +++ test.pl   22 Jan 2003 09:08:19 -  1.118.2.1
  @@ -1170,9 +1170,11 @@
   my $err  = 0 ;
   
   open F1, $f1 || die "***Cannot open $f1" ; 
  +binmode (F1, ":encoding(iso-8859-1)") if ($] >= 5.008000) ;
   if (!$errin)
{
open F2, $f2 || die "***Cannot open $f2" ; 
  + binmode (F2, ":encoding(iso-8859-1)") if ($] >= 5.008000) ;
}
   
   while (defined ($l1 = ))
  @@ -1334,6 +1336,7 @@
   $response = $ua->request($request, undef, undef);
   
   open FH, ">$ofile" ;
  +binmode (FH, ":encoding(iso-8859-1)") if ($] >= 5.008000) ;
   print FH $response -> content ;
   close FH ;
   
  
  
  

-
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]