[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