[Patch] Inline::Struct and more than one struct

[Philippe M . Chiasson]

I discovered a small problem in Inline::Struct when using more than
one struct.  There is a coupld of missing "\n"'s in the resulting
XS code, wich makes the whole thing explode ;-)

Patch attached.

-- 
+-----------------------------------------------+
| Philippe M. Chiasson  <[EMAIL PROTECTED]>        |
| SmartWorker http://www.smartworker.org        |
|     IM : gozerhbe  ICQ : gozer/99685021       |
|   64.8% computer corrupt according to         |
| http://www.freespeech.org/ljk/purity.html     |
+-----------------------------------------------+
To claim any more than that is to invite a religious war,
which I ain't. Go thou and don't likewise. 
        -- Larry Wall

perl -e '$$=\${gozer};{$_=unpack(P26,pack(L,$$));/^Just Another Perl 
Hacker!\n$/&&print||$$++&&redo}'

--- Inline/Struct.pm.orig       Fri Jun 29 14:11:30 2001
+++ Inline/Struct.pm    Fri Jun 29 14:12:06 2001
@@ -309,9 +309,9 @@
        my $type = "O_OBJECT_$struct";
        my @ctypes = grep { $data->{typeconv}{type_kind}{$_} eq $type } 
           keys %{$data->{typeconv}{type_kind}};
-       $TYPEMAP .= join "\n", map { "$_\t\t$type" } @ctypes;
-       $INPUT .= $type."\n".$data->{typeconv}{input_expr}{$type};
-       $OUTPUT .= $type."\n".$data->{typeconv}{output_expr}{$type};
+       $TYPEMAP .= join "", map { "$_\t\t$type\n" } @ctypes;
+       $INPUT .= $type."\n".$data->{typeconv}{input_expr}{$type}."\n";
+       $OUTPUT .= $type."\n".$data->{typeconv}{output_expr}{$type}."\n";
     }
 
     $o->mkpath($o->{API}{build_dir})