[perl #18967] [PATCH] Configure enables -g even if request is otherwise

[via RT]

# New Ticket Created by  mrnobo1024 
# Please include the string:  [perl #18967]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt2/Ticket/Display.html?id=18967 >


If -g is not requested, Configure says (none requested) but puts it in the
compiler flags anyway.


__________________________________________________
Do you Yahoo!?
Yahoo! Mail Plus - Powerful. Affordable. Sign up now.
http://mailplus.yahoo.com

-- attachment  1 ------------------------------------------------------
url: http://rt.perl.org/rt2/attach/44531/35166/0653cf/debug.patch


--- parrot/config/init/debug.pl.orig    Wed Sep  4 17:15:50 2002
+++ parrot/config/init/debug.pl Tue Dec  3 16:56:30 2002
@@ -9,22 +9,23 @@
 @args=();
 
 sub runstep {
-  if (! Configure::Data->get('debugging')) {
+  if (Configure::Data->get('debugging')) {
+    my($ccflags, $linkflags, $ldflags) = 
+        Configure::Data->get(qw(ccflags linkflags ldflags));
+    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";
+
+    Configure::Data->set(
+                         ccflags => $ccflags,
+                         linkflags => $linkflags,
+                         ldflags => $ldflags,
+                        );
+  } else {
     print "(none requested) ";
   }
-  my($ccflags, $linkflags, $ldflags) = 
-      Configure::Data->get(qw(ccflags linkflags ldflags));
-  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";
-
-  Configure::Data->set(
-                       ccflags => $ccflags,
-                       linkflags => $linkflags,
-                       ldflags => $ldflags,
-                      );
 }
 
 1;