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

Comparing COMP/SCRAM/src/clientfile.pm (file contents):
Revision 1.7 by williamc, Wed Mar 24 15:52:42 1999 UTC vs.
Revision 1.9 by williamc, Wed Mar 24 16:36:41 1999 UTC

# Line 23 | Line 23 | sub BuildClientFile {
23          &closeclientfile;
24   }
25  
26 < sub closeclienfile {
26 > sub closeclientfile {
27          close INSTALLLOG;
28          close CLIENT;
29          close CLIENT2;
# Line 194 | Line 194 | sub Arch_End {
194          my $name=shift;
195          my @vars=@_;
196  
197 <        $Arch=pop @ARCHBLOCK;
197 >        pop @ARCHBLOCK;
198 >        $Arch=$ARCHBLOCK[$#ARCHBLOCK];
199   }
200  
201   sub lib_start {
# Line 204 | Line 205 | sub lib_start {
205  
206          $hashref=$toolswitch->SetupValueHash( \@vars );
207          $toolswitch->checkparam($hashref, $name, 'name');
208 <        push @{$Envtype{lib}}, $$hashref{'name'};
209 <        outclient($name,$$hashref{'name'},"D");
208 >        if ( $Arch ) {
209 >          push @{$Envtype{lib}}, $$hashref{'name'};
210 >          outclient($name,$$hashref{'name'},"D");
211 >        }
212   }
213  
214   sub Env_start {

Diff Legend

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