From: Chris W. <la...@us...> - 2005-02-13 20:32:44
|
Update of /cvsroot/openinteract/OpenInteract2/lib/OpenInteract2/Manage/Website In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7315/lib/OpenInteract2/Manage/Website Modified Files: PackageCheckExportInstall.pm Log Message: cosmetic Index: PackageCheckExportInstall.pm =================================================================== RCS file: /cvsroot/openinteract/OpenInteract2/lib/OpenInteract2/Manage/Website/PackageCheckExportInstall.pm,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** PackageCheckExportInstall.pm 13 Jun 2004 18:19:54 -0000 1.3 --- PackageCheckExportInstall.pm 13 Feb 2005 20:32:36 -0000 1.4 *************** *** 6,9 **** --- 6,10 ---- use base qw( OpenInteract2::Manage::Website ); use Cwd qw( cwd ); + use File::Spec::Functions qw( catfile ); use Log::Log4perl qw( get_logger ); use OpenInteract2::Constants qw( :log ); *************** *** 37,41 **** my ( $self, $param_name, $param_value ) = @_; if ( $param_name eq 'package_dir' ) { ! my $package_conf_file = File::Spec->catfile( $param_value, 'package.conf' ); unless ( -f $package_conf_file ) { return "Directory does not appear to be a package"; --- 38,42 ---- my ( $self, $param_name, $param_value ) = @_; if ( $param_name eq 'package_dir' ) { ! my $package_conf_file = catfile( $param_value, 'package.conf' ); unless ( -f $package_conf_file ) { return "Directory does not appear to be a package"; |