File: freebsd.pl

package info (click to toggle)
libproc-processtable-perl 0.637-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 672 kB
  • sloc: ansic: 5,765; perl: 568; makefile: 15
file content (11 lines) | stat: -rw-r--r-- 401 bytes parent folder | download | duplicates (7) 
1
2
3
4
5
6
7
8
9
10
11
 
require Config;
my($maj) = $Config::Config{osvers} =~ m{^(\d+)};
if ($maj < 5) {
    print STDERR "Using procfs implementation\n";
    symlink "os/FreeBSD.c", "OS.c" || die "Could not link os/FreeBSD.c to os/OS.c\n";
} else {
    print STDERR "Using kvm implementation\n";
    symlink "os/FreeBSD-kvm.c", "OS.c" || die "Could not link os/FreeBSD-kvm.c to os/OS.c\n";
    $self->{LIBS} = ['-lkvm'];
}