Next Lightweight Databases 59

uppercase_username Revisited

        sub uppercase_username {
          my ($file, $username) = @_;
          for (@$file) {
            last if s/^$username:/\U$username:/;
          }
        }


Next Copyright © 2003 M. J. Dominus