diff options
| author | Kurt Zenker <kz@openoffice.org> | 2009-11-09 13:05:39 +0100 |
|---|---|---|
| committer | Kurt Zenker <kz@openoffice.org> | 2009-11-09 13:05:39 +0100 |
| commit | c942bbb6a5f120beef62cc5245f4fb62ded3efb7 (patch) | |
| tree | 239b5366d3a8bb22a709ccfbd575dd1dbaabdf7d | |
| parent | 787d142a4c587c00cd848160d19c5db729c27e3b (diff) | |
#i106558# output warning in get_module_path only if debug is set
| -rw-r--r-- | solenv/bin/modules/SourceConfig.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/solenv/bin/modules/SourceConfig.pm b/solenv/bin/modules/SourceConfig.pm index 8fe741559fb3..881f92dd175d 100644 --- a/solenv/bin/modules/SourceConfig.pm +++ b/solenv/bin/modules/SourceConfig.pm @@ -47,6 +47,8 @@ use Carp; use Cwd; use File::Basename; +my $debug = 0; + ##### profiling ##### ##### ctor ##### @@ -112,7 +114,7 @@ sub get_module_path { if (defined ${$self->{MODULE_PATHS}}{$module}) { return ${$self->{MODULE_PATHS}}{$module}; } else { - Carp::cluck("No path for module $module in active repositories!!\n"); + Carp::cluck("No path for module $module in active repositories!!\n") if ($debug); return undef; }; } |