Changeset 130


Ignore:
Timestamp:
Sep 10, 2007, 5:31:52 PM (13 years ago)
Author:
Bruno Cornec
Message:

replace map by a loop
expand HOME var if any

File:
1 edited

Legend:

Unmodified
Added
Removed
  • devel/pb/bin/pb

    r129 r130  
    421421    }
    422422    my $basesrc = "";
    423     $basesrc = map { $basesrc." ".basename($_) } split(/ /,$src);
     423    foreach my $i (split(/ /,$src)) {
     424        $basesrc =. " ".basename($_);
     425    }
    424426
    425427    print $LOG "Sources handled ($cmt): $src\n" if ($debug >= 0);
     
    431433    } elsif ($cmt eq "VMs") {
    432434        $tdir = dirname("$sshdir->{$ENV{'PBPROJ'}}");
     435        # Expand a potential $ENV{'HOME'}
     436        eval { $tdir =~ s/(\$ENV.+\})/$1/eeg };
    433437    } elsif ($cmt eq "Packages") {
    434438        $tdir = "$sshdir->{$ENV{'PBPROJ'}}/$ddir/$dver";
Note: See TracChangeset for help on using the changeset viewer.