# $Id: scanrlimits,v 1.1 1995/12/07 19:34:21 jhi Exp jhi $

use BSD::Resource;

sub scanrlimits {
  my @LIM = ();
  my ($var, $lim);

  for $var (qw(CPU FSIZE DATA STACK RSS CORE NOFILE OPEN_MAX AS VMEM)) {
    $lim = "RLIMIT_$var";
    push(@LIM, $lim) if (eval 'defined '.$lim);
  }

  die "cannot find any resource limits in the system" unless (@LIM);

  @LIM;
}

1;

# eof
