PERFORCE change 12191 for review

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.

• PERFORCE change 12191 for review by Chris Nandor