That’s Perl

Christoph

/*
* Accept input from Perl for later use. We just save what
* we’re given here because we may not have the specdef
* available to parse it with at this time. To deal with
* Perl’s horrible reference count system, we create a new
* reference here to whatever we’re given. That way we’ll
* increment the reference count of the object when it’s
* given to us, and we have to decrement the refcount when
* we’re done with this object. Ugly, but hey, that’s Perl!
*/