Here's a minor patch which should make purify happy. (passing in 0 for the length was causing an "ABR" error).
cvs server: Diffing . Index: core.ops =================================================================== RCS file: /home/perlcvs/parrot/core.ops,v retrieving revision 1.46 diff -u -r1.46 core.ops --- core.ops 12 Dec 2001 02:52:52 -0000 1.46 +++ core.ops 13 Dec 2001 04:17:19 -0000 @@ -193,7 +193,9 @@ AUTO_OP print(s|sc) { STRING *s = $1; - if (s) printf("%.*s",(int)string_length(s),(char *) s->bufstart); + if (s && string_length(s)) { + printf("%.*s",(int)string_length(s),(char *) s->bufstart); + } } -- Josh Wilmes ([EMAIL PROTECTED]) | http://www.hitchhiker.org