Ticket #18967

Only add debugging if --debugging requested. -- Mr. Nobody git-svn-id: https://svn.parrot.org/parrot/trunk@2830 d31e2699-5ff4-0310-a27c-f18f2fbe73fe
fernandobrito · Dec 16, 2002 · a944aff · a944aff
1 parent d39dbc6
commit a944aff
Showing 1 changed file with 14 additions and 13 deletions.
diff --git a/config/init/debug.pl b/config/init/debug.pl
@@ -9,22 +9,23 @@ package Configure::Step;
 @args=();
 
 sub runstep {
-  if (! Configure::Data->get('debugging')) {
-    print "(none requested) ";
-  }
-  my($ccflags, $linkflags, $ldflags) = 
+  if (Configure::Data->get('debugging')) {
+    my($ccflags, $linkflags, $ldflags) = 
       Configure::Data->get(qw(ccflags linkflags ldflags));
-  my($cc_debug, $link_debug, $ld_debug) = 
+    my($cc_debug, $link_debug, $ld_debug) = 
       Configure::Data->get(qw(cc_debug link_debug ld_debug));
-  $ccflags .= " $cc_debug";
-  $linkflags .= " $link_debug";
-  $ldflags .= " $ld_debug";
+    $ccflags .= " $cc_debug";
+    $linkflags .= " $link_debug";
+    $ldflags .= " $ld_debug";
 
-  Configure::Data->set(
-                       ccflags => $ccflags,
-                       linkflags => $linkflags,
-                       ldflags => $ldflags,
-                      );
+    Configure::Data->set(
+                         ccflags => $ccflags,
+                         linkflags => $linkflags,
+                         ldflags => $ldflags,
+                        );
+  } else {
+    print "(none requested) ";
+  }
 }
 
 1;