| # | Line 98 | Line 98 | sub satellite { | |
|---|---|---|
| 98 | my $version=shift; | |
| 99 | my $installarea=shift; | |
| 100 | ||
| 101 | < | my $areaname=""; |
| 101 | > | my $areaname=undef; |
| 102 | if ( @_ ) { | |
| 103 | $areaname=shift; | |
| 104 | } | |
| # | Line 109 | Line 109 | sub satellite { | |
| 109 | $self->error("Unable to Find Project $name $version"); | |
| 110 | } | |
| 111 | ||
| 112 | + | # -- fix for old broken areas |
| 113 | + | if ( (! defined $relarea->version()) || ($relarea->version() eq "") ) { |
| 114 | + | $relarea->version($version); |
| 115 | + | } |
| 116 | + | |
| 117 | # -- create satellite | |
| 118 | my $area=$relarea->satellite($installarea,$areaname); | |
| 119 | $area->archname($self->arch()); | |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |