[MacPerl] Types.pm bug (?)

[Kevin Walker <kwalker@euclid.ucsd.edu>]

Perhaps one of the experts on this list could confirm that

    sub _PackPStrList {
        my($list) = pack("s", $#_);
        for (@_) {
            $list .= _PackPStr($_);
        }
        return $list;
    }

should be changed to

    sub _PackPStrList {
        # my($list) = pack("s", $#_);    # oops
        my($list) = pack("s", $#_+1);
        for (@_) {
            $list .= _PackPStr($_);
        }
        return $list;
    }

in the Types.pm module.  (Making the change certianly seems to make my
scripts run better.)

Kevin Walker



***** Want to unsubscribe from this list?
***** Send mail with body "unsubscribe" to mac-perl-request@iis.ee.ethz.ch