[Openinteract-commits] CVS: OpenInteract2/lib/OpenInteract2/Manage Package.pm,1.14,1.15

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

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

Modified Files:
	Package.pm 
Log Message:
pull up a subclass implementation for others to use (_check_package_dir())


Index: Package.pm
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/lib/OpenInteract2/Manage/Package.pm,v
retrieving revision 1.14
retrieving revision 1.15
diff -C2 -d -r1.14 -r1.15
*** Package.pm	17 Feb 2004 04:30:20 -0000	1.14
--- Package.pm	8 Feb 2005 01:28:34 -0000	1.15
***************
*** 35,38 ****
--- 35,51 ----
  }
  
+ # We only want to see if 'package_dir' contains a package if the
+ # 'package' parameter is not defined
+ 
+ sub _check_package_dir {
+     my ( $self, $package_dir ) = @_;
+     unless ( -d $package_dir ) {
+         return "Value given for 'package_dir' ($package_dir) is not " .
+                "a valid directory";
+     }
+     my $packages = $self->param( 'package' ) || [];
+     return if ( scalar @{ $packages } > 0 );
+     return $self->_package_in_dir( $package_dir );
+ }
  
  # Test whether directory $package_dir is actually a package directory