[Bps-public-commit] r16541 - in Prophet/trunk: .
spang at bestpractical.com
spang at bestpractical.com
Sun Oct 26 17:05:44 EDT 2008
Author: spang
Date: Sun Oct 26 17:05:43 2008
New Revision: 16541
Modified:
Prophet/trunk/ (props changed)
Prophet/trunk/lib/Prophet/Config.pm
Log:
r50904 at loki: spang | 2008-10-26 12:35:54 -0400
quiet warnings
Modified: Prophet/trunk/lib/Prophet/Config.pm
==============================================================================
--- Prophet/trunk/lib/Prophet/Config.pm (original)
+++ Prophet/trunk/lib/Prophet/Config.pm Sun Oct 26 17:05:43 2008
@@ -37,8 +37,8 @@
sub app_config_file {
my $self = shift;
- return $self->file_if_exists($ENV{'PROPHET_APP_CONFIG'}) ||
- $self->file_if_exists(
+ return $self->file_if_exists($ENV{'PROPHET_APP_CONFIG'})
+ || $self->file_if_exists(
File::Spec->catfile(
$self->app_handle->handle->fs_root => 'prophetrc' ))
|| $self->file_if_exists(
@@ -97,7 +97,7 @@
sub file_if_exists {
my $self = shift;
- my $file = shift;
+ my $file = shift || ''; # quiet warnings
return (-e $file) ? $file : '';
}
More information about the Bps-public-commit
mailing list