[Summary view] [Print] [Text view]

   1  # NOTE: Derived from ../../lib/POSIX.pm.
   2  # Changes made here will be lost when autosplit is run again.
   3  # See AutoSplit.pm.
   4  package POSIX;
   5  
   6  #line 103 "../../lib/POSIX.pm (autosplit into ../../lib/auto/POSIX/assert.al)"
   7  sub assert {
   8      usage "assert(expr)" if @_ != 1;
   9      if (!$_[0]) {
  10      croak "Assertion failed";
  11      }
  12  }
  13  
  14  # end of POSIX::assert
  15  1;