Faster get/set on sockets

[bbkr]

I found that get/set on sockets are using regexps to match literal strings:

    for ($opt_type) {
        when (/^int$/) { ... }
        ...
    }

This can be converted to

    for ($opt_type) {
        when ( 'int' ) { ... }
        ...
    }

Which is 2x faster (12M/s for regexp vs 25M/s for literal on my machine).

Note that this do not apply to when (/^(binary|string)$/), in this case regexp is 10x faster than when(['binary','string']).

[calid]

Ah, thanks for the heads up. I'll go ahead and incorporate this once I have a moment... unfortunately I may not be able to get to this for a few weeks.