diff options
Diffstat (limited to 'lib/Automake/DisjConditions.pm')
-rw-r--r-- | lib/Automake/DisjConditions.pm | 20 |
1 files changed, 0 insertions, 20 deletions
diff --git a/lib/Automake/DisjConditions.pm b/lib/Automake/DisjConditions.pm index c8a294941..ecb2ff86b 100644 --- a/lib/Automake/DisjConditions.pm +++ b/lib/Automake/DisjConditions.pm @@ -193,26 +193,6 @@ sub new ($;@) return $self; } - -=item C<CLONE> - -Internal special subroutine to fix up the self hashes in -C<%_disjcondition_singletons> upon thread creation. C<CLONE> is invoked -automatically with ithreads from Perl 5.7.2 or later, so if you use this -module with earlier versions of Perl, it is not thread-safe. - -=cut - -sub CLONE -{ - foreach my $self (values %_disjcondition_singletons) - { - my %h = map { $_ => $_ } @{$self->{'conds'}}; - $self->{'hash'} = \%h; - } -} - - =item C<@conds = $set-E<gt>conds> Return the list of C<Condition> objects involved in C<$set>. |