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
|
