Next Lightweight Databases 62

General code is slower than special code

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


Next Copyright © 2003 M. J. Dominus