path: root/lib/auto/POSIX/toupper.al

# NOTE:  Derived from POSIX.pm.  Changes made here will be lost.
package POSIX;

sub toupper {
    usage "toupper(string)", caller if @_ != 1;
    uc($_[0]);
}

1;