[Openinteract-commits] CVS: OpenInteract2/lib/OpenInteract2 Setup.pm,1.55,1.56

[Chris W. <la...@us...>]

Update of /cvsroot/openinteract/OpenInteract2/lib/OpenInteract2
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv21576

Modified Files:
	Setup.pm 
Log Message:
until my A::D patch is accepted this will have to do...


Index: Setup.pm
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/lib/OpenInteract2/Setup.pm,v
retrieving revision 1.55
retrieving revision 1.56
diff -C2 -d -r1.55 -r1.56
*** Setup.pm	24 Jan 2005 17:17:32 -0000	1.55
--- Setup.pm	24 Jan 2005 17:24:31 -0000	1.56
***************
*** 181,184 ****
--- 181,210 ----
  $DEFAULT_DEPENDENCY = OpenInteract2::Setup::ReadServerConfig->get_name;
  
+ {
+     no strict;
+     if ( Algorithm::Dependency->VERSION <= 1.03 ) {
+         *Algorithm::Dependency::without = sub {
+             my $self = shift;
+             my @without = @_;
+             my $all_items = $self->schedule_all();
+             unless ( scalar @without ) {
+                 return $all_items;
+             }
+             my %to_skip = map { $_ => 1 } @without;
+             my @good_items = ();
+             
+             foreach my $item ( @{ $all_items } ) {
+                 next if ( $to_skip{ $item } );
+                 my $all_item_dep = $self->depends( $item );
+                 foreach my $item_dep ( @{ $all_item_dep } ) {
+                     next if ( $to_skip{ $item_dep } );
+                 }
+                 push @good_items, $item;
+             }
+             return \@good_items;
+         };
+     }
+ }
+ 
  1;