stas 2004/01/11 12:22:56
Modified: lib/Apache compat.pm
. Changes
Log:
Check the success of sysopen in tmpfile() in compat
Revision Changes Path
1.95 +2 -1 modperl-2.0/lib/Apache/compat.pm
Index: compat.pm
===================================================================
RCS file: /home/cvs/modperl-2.0/lib/Apache/compat.pm,v
retrieving revision 1.94
retrieving revision 1.95
diff -u -u -r1.94 -r1.95
--- compat.pm 20 Dec 2003 01:28:43 -0000 1.94
+++ compat.pm 11 Jan 2004 20:22:56 -0000 1.95
@@ -589,7 +589,8 @@
my $tmpfile = "$TMPDIR/${$}" . $TMPNAM++;
my $fh = $class->new;
- sysopen($fh, $tmpfile, $Mode, $Perms);
+ sysopen $fh, $tmpfile, $Mode, $Perms
+ or die "failed to open $tmpfile: $!";
$r->pool->cleanup_register(sub { unlink $tmpfile });
if ($fh) {
1.300 +2 -0 modperl-2.0/Changes
Index: Changes
===================================================================
RCS file: /home/cvs/modperl-2.0/Changes,v
retrieving revision 1.299
retrieving revision 1.300
diff -u -u -r1.299 -r1.300
--- Changes 10 Jan 2004 05:01:04 -0000 1.299
+++ Changes 11 Jan 2004 20:22:56 -0000 1.300
@@ -12,6 +12,8 @@
=item 1.99_13-dev
+Check the success of sysopen in tmpfile() in compat [Geoffrey Young]
+
make sure DynaLoader is loaded before XSLoader, not only with perl
5.6.1, but always because of the issues with <Perl> sections are
loaded from +Parent vhost [Stas]
