File: svr4.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-- 365 bytes parent folder | download | duplicates (26) 
1
2
3
4
5
6
7
8
9
10
11
 
# Check this is UnixWare 7 or above.
`uname` =~ /UnixWare/ || die "Not a supported SVR5\n";

# If this OS version supports the new /proc filesystem, use it.
`uname -v` =~ /^([\d\.]+)$/;
unless( $1 >= 7 ){
    die "Unsupported OS Version: $1\n";
}

symlink "os/UnixWare.c", "OS.c" || die "Could not link os/UnixWare.c to os/OS.c\n";
$self->{DEFINE} = "-D_KMEMUSER";