| # | Line 40 | Line 40 | sub _generateexternals { | |
|---|---|---|
| 40 | # -- get list of dependent files | |
| 41 | my $datadir=$ENV{LOCALTOP}."/.SCRAM/".$ENV{SCRAM_ARCH}; | |
| 42 | $fdir=FileHandle->new(); | |
| 43 | < | opendir $fdir, $datadir or die |
| 44 | < | "unable to access $datadir $!\n"; |
| 43 | > | opendir $fdir, $datadir; |
| 44 | my @depfiles=grep !/^\.\.?$/, readdir $fdir; | |
| 45 | undef $fdir; | |
| 46 | for (my $i=0; $i<=$#depfiles; $i++ ) { | |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |