Permalink
Browse files

reenable debugging=1 default

git-svn-id: https://svn.parrot.org/parrot/trunk@4187 d31e2699-5ff4-0310-a27c-f18f2fbe73fe
  • Loading branch information...
1 parent 7de2f37 commit 85a1fcca5bd7648f4cb22a5a6d0fb60fd9f17d1e Leopold Toetsch committed Sep 25, 2003
Showing with 5 additions and 3 deletions.
  1. +3 −1 Configure.pl
  2. +2 −2 config/inter/progs.pl
View
4 Configure.pl
@@ -54,7 +54,7 @@ END
you can remove parts of a line with :rem{<opt>}
and add options with :add{<opt>} e.g.
:rem{-g} :add{-O2}
- --debugging Enable debugging
+ --debugging = 0 Disable debugging, default = 1
--optimize Optimized compile
--cc=(compiler) Use the given compiler
--ld=(linker) Use the given linker
@@ -71,6 +71,8 @@ END
}
}
+$args{debugging} = 1 unless ((exists $args{debugging}) && !$args{debugging});
+
print <<"END";
Parrot Version $parrot_version Configure 2.0
Copyright (C) 2001-2003 The Perl Foundation. All Rights Reserved.
View
4 config/inter/progs.pl
@@ -50,8 +50,8 @@ sub runstep {
#Symrefs to lexicals are a no-no, so we have to use eval STRING. %MY, anyone?
eval qq{ \$$var=integrate(\$$var, \$args{$var}) if defined \$args{$var} };
}
-
- $debug='y' if defined $args{debugging};
+
+ $debug='y' if $args{debugging};
if($args{ask}) {
print <<'END';

0 comments on commit 85a1fcc

Please sign in to comment.