You are viewing a plain text version of this content. The canonical link for it is here.
Posted to embperl-cvs@perl.apache.org by ri...@apache.org on 2003/01/22 10:08:20 UTC
cvs commit: embperl Changes.pod Embperl.pm test.pl
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 Changes Path
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 -0000 1.188.2.1
+++ Changes.pod 22 Jan 2003 09:08:19 -0000 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.pm 22 Jan 2003 08:23:34 -0000 1.177.2.1
+++ Embperl.pm 22 Jan 2003 09:08:19 -0000 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 -0000 1.118
+++ test.pl 22 Jan 2003 09:08:19 -0000 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 = <F1>))
@@ -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: embperl-cvs-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-cvs-help@perl.apache.org