ViewVC Help
View File | Revision Log | Show Annotations | Root Listing
root/cvsroot/COMP/SCRAM/src/Scram/ScramFunctions.pm
(Generate patch)

Comparing COMP/SCRAM/src/Scram/ScramFunctions.pm (file contents):
Revision 1.3 by williamc, Wed Aug 30 09:31:31 2000 UTC vs.
Revision 1.5 by williamc, Tue Sep 5 08:11:05 2000 UTC

# Line 31 | Line 31 | sub new {
31          $self={};
32          bless $self, $class;
33          # -- default settings
34 <        $self->{cachedir}=$ENV{HOME}."/.SCRAM/globalcache";
34 >        $self->{cachedir}=$ENV{HOME}."/.scramrc/globalcache";
35          $self->{scramprojectsdbdir}=$ENV{SCRAM_LOOKUPDB};
36          return $self;
37   }
# 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());

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines