At 8:01 PM -0400 8/21/06, Thomas Pfau wrote:
>
>I took VMS::Process and made the following changes:
>
>1) Add the following to the end of process.xs:
>
>------ cut here -------
>
>int
>setprn(newname)
> char *newname
> CODE:
> {
> int descr[2];
> descr[0] = strlen(newname);
> descr[1] = (int) newname;
> RETVAL = sys$setprn(descr);
> }
> OUTPUT:
> RETVAL
Thanks. I think it would be more Perlish to return true on success
and false on failure with errno set appropriately, but that's a
trivial modification to this helpful suggestion. I'll try to get a
revised version of the module up on CPAN soon.
--
________________________________________
Craig A. Berry
mailto:[EMAIL PROTECTED]
"... getting out of a sonnet is much more
difficult than getting in."
Brad Leithauser
