The R Project SVN R

Rev

Rev 6098 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 6098 Rev 6124
Line 78... Line 78...
78 
    chdir "man" or die("There are no man pages in $pkg\n");
 78 
    chdir "man" or die("There are no man pages in $pkg\n");
79 
    opendir man, '.';
 79 
    opendir man, '.';
80 
    @mandir = sort(readdir(man));
 80 
    @mandir = sort(readdir(man));
81 
    closedir man;
 81 
    closedir man;
82 
 
 82 
 
- 
 
 83 
    if(-d $OSdir) {
- 
 
 84 
	foreach $file (@mandir) { $Rds{$file} = $file; }
- 
 
 85 
	opendir man, $OSdir;
- 
 
 86 
	foreach $file (readdir(man)) {
- 
 
 87 
	    delete $Rds{$file};
- 
 
 88 
	    $RdsOS{$file} = $OSdir."/".$file;
- 
 
 89 
	}
- 
 
 90 
	@mandir = sort(values %Rds);
- 
 
 91 
	push @mandir, sort(values %RdsOS);
- 
 
 92 
    }
- 
 
 93 
 
83 
    ($pkg, $lib, @mandir);
 94 
    ($pkg, $lib, @mandir);
84 
}
 95 
}
85 
 
 96 
 
86 
 
 97 
 
87 
### Read the titles of all installed packages into an hash array
 98 
### Read the titles of all installed packages into an hash array