Changeset 702 in ProjectBuilder for devel/pb/bin
- Timestamp:
- Feb 19, 2009, 4:42:22 PM (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
devel/pb/bin/pb
r698 r702 782 782 open(LAST,">> $ENV{'PBDESTDIR'}/pbrc") || die "Unable to create $ENV{'PBDESTDIR'}/pbrc"; 783 783 print LAST "pbroot $ENV{'PBPROJ'} = $ENV{'PBROOTDIR'}\n"; 784 print LAST "p bprojver $ENV{'PBPROJ'} = $ENV{'PBPROJVER'}\n";785 print LAST "p bprojtag $ENV{'PBPROJ'} = $ENV{'PBPROJTAG'}\n";784 print LAST "projver $ENV{'PBPROJ'} = $ENV{'PBPROJVER'}\n"; 785 print LAST "projtag $ENV{'PBPROJ'} = $ENV{'PBPROJTAG'}\n"; 786 786 print LAST "pbpackager $ENV{'PBPROJ'} = $ENV{'PBPACKAGER'}\n"; 787 787 close(LAST); … … 841 841 $specialdef = "--define \'_target_platform \"\"\'"; 842 842 } 843 844 # If needed we may add repository to the build env 845 my $darch = pb_get_arch(); 846 pb_distro_setuprepo($ddir,$dver,$darch,$dtype); 843 847 foreach my $f (@specfile) { 844 848 if ($f =~ /\.spec$/) { … … 1519 1523 if ($dtype eq "rpm") { 1520 1524 1521 my $verpmstyle = pb_ get_dist_param($ddir,$dver,$darch,$verpmtype);1525 my $verpmstyle = pb_distro_get_param($ddir,$dver,$darch,$verpmtype); 1522 1526 if ($verpmstyle eq "rinse") { 1523 1527 # Need to reshape the mirrors generated 1524 1528 my $post = "--before-post-install "; 1525 my $postparam = pb_ get_dist_param($ddir,$dver,$darch,$veb4pi);1529 my $postparam = pb_distro_get_param($ddir,$dver,$darch,$veb4pi); 1526 1530 if ($postparam eq "") { 1527 1531 $post = ""; … … 1532 1536 # Need to reshape the package list for pb 1533 1537 my $addpkgs; 1534 $postparam = pb_ get_dist_param($ddir,$dver,$darch,$vepkglist);1538 $postparam = pb_distro_get_param($ddir,$dver,$darch,$vepkglist); 1535 1539 if ($postparam eq "") { 1536 1540 $addpkgs = ""; … … 1887 1891 my ($ddir, $dver, $dfam, $dtype, $pbsuf, $pbupd) = pb_distro_init($name,$ver); 1888 1892 1889 my $postparam = pb_ get_dist_param($ddir,$dver,$darch,$vepkglist);1893 my $postparam = pb_distro_get_param($ddir,$dver,$darch,$vepkglist); 1890 1894 # Change the list of pkg in to a space separated list 1891 1895 $postparam =~ s/,/ /g; … … 2564 2568 } 2565 2569 2566 sub pb_get_dist_param {2567 2568 my $param = "";2569 my $ddir = shift;2570 my $dver = shift;2571 my $darch = shift;2572 my $opt = shift;2573 2574 if (defined $opt->{"$ddir-$dver-$darch"}) {2575 $param = $opt->{"$ddir-$dver-$darch"};2576 } elsif (defined $opt->{"$ddir-$dver"}) {2577 $param = $opt->{"$ddir-$dver"};2578 } elsif (defined $opt->{"$ddir"}) {2579 $param = $opt->{"$ddir"};2580 } elsif (defined $opt->{"default"}) {2581 $param = $opt->{"default"};2582 } else {2583 $param = "";2584 }2585 return($param);2586 }2587 2588 2570 1;
Note:
See TracChangeset
for help on using the changeset viewer.