Changes in devel/pb/lib/pb.pm [22:19] in ProjectBuilder
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
devel/pb/lib/pb.pm
r22 r19 14 14 my $conffile = shift; 15 15 my $ptr; 16 my $trace;17 18 if ($debug > 0) {19 $trace = 1;20 } else {21 $trace = 0;22 }23 16 24 17 my $config = AppConfig->new({ 25 18 # Auto Create variables mentioned in Conf file 26 19 CREATE => 1, 27 DEBUG => $trace,20 DEBUG => 1, 28 21 GLOBAL => { 29 22 # Each conf item is a hash … … 41 34 $ptr = $config->get("confparam") || die "Unable to find confparam in $conffile"; 42 35 %confparam = %$ptr; 43 print " DEBUG: confparam: ".Dumper($ptr)."\n" if ($debug >= 1);36 print "confparam: ".Dumper($ptr)."\n"; 44 37 45 38 # List of pkg to build by default (mandatory) 46 39 $ptr = $config->get("defpkgdir") || die "Unable to find defpkgdir in $conffile"; 47 40 %defpkgdir = %$ptr; 48 print " DEBUG: defpkgdir: ".Dumper($ptr)."\n" if ($debug >= 1);41 print "defpkgdir: ".Dumper($ptr)."\n"; 49 42 50 43 # List of additional pkg to build when all is called (optional) 51 44 $ptr = $config->get("extpkgdir"); 52 print " DEBUG: extpkgdir1: ".Dumper($ptr)."\n" if ($debug >= 1);45 print "extpkgdir1: ".Dumper($ptr)."\n"; 53 46 if (not defined $ptr) { 54 47 %extpkgdir = (); … … 56 49 %extpkgdir = %$ptr; 57 50 } 58 print " DEBUG: extpkgdir: ".Dumper(\%extpkgdir)."\n" if ($debug >= 1);51 print "extpkgdir: ".Dumper(\%extpkgdir)."\n"; 59 52 60 53 # Valid version names (optional) … … 65 58 %version = %$ptr; 66 59 } 67 print " DEBUG: version: ".Dumper(\%version)."\n" if ($debug >= 1);60 print "version: ".Dumper(\%version)."\n"; 68 61 69 62 # List of files to filter (optional) … … 74 67 %filteredfiles = %$ptr; 75 68 } 76 print " DEBUG: filteredfiles: ".Dumper(\%filteredfiles)."\n" if ($debug >= 1);69 print "filteredfiles: ".Dumper(\%filteredfiles)."\n"; 77 70 78 71 }
Note:
See TracChangeset
for help on using the changeset viewer.