PERFORCE change 12191 for review

[email protected] (Chris Nandor) Tue, 25 Sep 2001 00:06:42 -0400

Newsgroups	perl.perl5.changes.mac
Message-ID	<p0510030eb7d5b3420a4f@[10.0.1.177]>

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.