[Home]ReadFileOrDie/Code

UseModWiki | ReadFileOrDie | RecentChanges | Preferences

Code

Version 0.92

sub ReadFileOrDie {
  my ($fileName) = @_;
  my ($status, $data);

  ($status, $data) = &ReadFile($fileName);
  if (!$status) {
    die(Ts('Can not open %s', $fileName) . ": $!");
  }
  return $data;
}



UseModWiki | ReadFileOrDie | RecentChanges | Preferences
Edit text of this page | View other revisions | Search MetaWiki
Last edited September 21, 2001 9:12 pm by deptvasf-cp.va.gov (diff)
Search: