From c942bbb6a5f120beef62cc5245f4fb62ded3efb7 Mon Sep 17 00:00:00 2001 From: Kurt Zenker Date: Mon, 9 Nov 2009 13:05:39 +0100 Subject: #i106558# output warning in get_module_path only if debug is set --- solenv/bin/modules/SourceConfig.pm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'solenv/bin') 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; }; } -- cgit