[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 115 "../../lib/POSIX.pm (autosplit into ../../lib/auto/POSIX/toupper.al)"
   7  sub toupper {
   8      usage "toupper(string)" if @_ != 1;
   9      uc($_[0]);
  10  }
  11  
  12  # end of POSIX::toupper
  13  1;