perl 3.0 patch #32 patch #29, continued

[p5sagit/p5-mst-13.2.git] / usub / mus

diff --git a/usub/mus b/usub/mus
index 490f008..3f772bd 100644 (file)
--- a/usub/mus
+++ b/usub/mus
@@ -103,7 +103,7 @@ EOF
        }
        elsif ($rettype =~ /^[A-Z]+\s*\*$/) {
            print <<EOF;
-           str_set(st[0], (char*) &retval, sizeof retval);
+           str_nset(st[0], (char*) &retval, sizeof retval);
 EOF
        }
        else {