Changeset 1128 in ProjectBuilder for devel/pb-modules/lib/ProjectBuilder/Base.pm

Timestamp:

Dec 21, 2010, 3:01:44 AM (13 years ago)

Author:

Bruno Cornec

Message:

• pb_check_requirements now takes direct result from pb_conf_get_if and does more internal work, which ease caller.

File:

• devel/pb-modules/lib/ProjectBuilder/Base.pm (modified) (2 diffs)

devel/pb-modules/lib/ProjectBuilder/Base.pm

@@ -409 +409 @@
 sub pb_check_requirements {
 
-my $cmds = shift || "";
-my $options = shift || "";
+my $req = shift || undef;
+my $opt = shift || undef;
+my $appname = shift || undef;
+
+my ($req2,$opt2) = (undef,undef);
+$req2 = $req->{$appname} if (defined $req and defined $appname);
+$opt2 = $opt->{$appname} if (defined $opt and defined $appname);
 
 # cmds is a string of coma separated commands
-foreach my $file (split(/,/,$cmds)) {
-    pb_check_req($file,0);
+if (defined $req2) {
+    foreach my $file (split(/,/,$req2)) {
+        pb_check_req($file,0);
+    }
 }
 
 # opts is a string of coma separated commands
-foreach my $file (split(/,/,$options)) {
-    pb_check_req($file,1);
+if (defined $opt2) {
+    foreach my $file (split(/,/,$opt2)) {
+        pb_check_req($file,1);
+    }
 }
 }
@@ -455 +464 @@
 } else {
     pb_log(2,"OK\n");
-    return($found");
+    return($found);
 }
 }