From: Chris W. <la...@us...> - 2005-02-08 01:29:13
|
Update of /cvsroot/openinteract/OpenInteract2/lib/OpenInteract2/Manage/Package In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv25910/lib/OpenInteract2/Manage/Package Modified Files: Export.pm Log Message: move up to parent Index: Export.pm =================================================================== RCS file: /cvsroot/openinteract/OpenInteract2/lib/OpenInteract2/Manage/Package/Export.pm,v retrieving revision 1.14 retrieving revision 1.15 diff -C2 -d -r1.14 -r1.15 *** Export.pm 26 Jan 2005 02:36:10 -0000 1.14 --- Export.pm 8 Feb 2005 01:28:58 -0000 1.15 *************** *** 41,58 **** } - # 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 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 ); - } - sub run_task { my ( $self ) = @_; --- 41,44 ---- |