Update of /cvsroot/fink/fink/perlmod/Fink
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28412/perlmod/Fink
Modified Files:
ChangeLog Finally.pm
Log Message:
finalizers should not run in forks
Index: Finally.pm
===================================================================
RCS file: /cvsroot/fink/fink/perlmod/Fink/Finally.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- Finally.pm 22 Mar 2006 04:00:31 -0000 1.1
+++ Finally.pm 22 Mar 2006 18:17:01 -0000 1.2
@@ -70,6 +70,7 @@
die "A Finally needs some code to run!\n"
unless defined $code && ref($code) eq 'CODE';
$self->{_code} = $code;
+ $self->{_pid} = $$;
$self->{_primed} = 1; # ready to go
}
@@ -85,6 +86,8 @@
sub run {
my ($self) = @_;
+ delete $self->{_primed}
+ if $self->{_primed} && $$ != $self->{_pid}; # Don't run in forks
return unless $self->{_primed};
&{$self->{_code}}();
Index: ChangeLog
===================================================================
RCS file: /cvsroot/fink/fink/perlmod/Fink/ChangeLog,v
retrieving revision 1.1291
retrieving revision 1.1292
diff -u -d -r1.1291 -r1.1292
--- ChangeLog 22 Mar 2006 17:05:54 -0000 1.1291
+++ ChangeLog 22 Mar 2006 18:17:00 -0000 1.1292
@@ -1,3 +1,7 @@
+2006-03-22 Daniel Macks <[EMAIL PROTECTED]>
+
+ * Finally.pm: Don't run in forks.
+
2006-03-21 Daniel Macks <[EMAIL PROTECTED]>
* Engine.pm: In -m mode, validate .info of deps also, not just
-------------------------------------------------------
This SF.Net email is sponsored by xPML, a groundbreaking scripting language
that extends applications into web and mobile media. Attend the live webcast
and join the prime developer group breaking into this new coding territory!
http://sel.as-us.falkag.net/sel?cmd=lnk&kid=110944&bid=241720&dat=121642
_______________________________________________
Fink-commits mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/fink-commits
