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
