Change 12191 by pudge@pudge-mobile on 2001/09/25 02:37:58
Fix up another xsubpp problem (Matthias Neeracher)
Affected files ...
... //depot/maint-5.6/macperl/macos/xsubpp#2 edit
Differences ...
==== //depot/maint-5.6/macperl/macos/xsubpp#2 (text) ====
Index: perl/macos/xsubpp
--- perl/macos/xsubpp.~1~ Mon Sep 24 20:45:06 2001
+++ perl/macos/xsubpp Mon Sep 24 20:45:06 2001
@@ -1208,7 +1208,8 @@
# ]]
EOF
print $structoutdir;
- XS_process($structoutput || "\tXS_OUTPUT($structtype, STRUCT, ST(0))\n");
+ XS_process($structoutput || "\tXS_OUTPUT($structtype, STRUCT, ST(0))\n")
+ if $structoutput || $deref eq ".";
print Q<<"EOF";
# ]]
EOF
End of Patch.
