--- lib/SQL/Translator/Producer/Diagram.pm.orig Sun May 9 15:00:01 2004 +++ lib/SQL/Translator/Producer/Diagram.pm Sun May 9 15:09:32 2004 @@ -502,27 +502,27 @@ # debug("imap file = '$imap_file'"); if ( $imap_file && @imap_coords ) { - open my $fh, ">$imap_file" or die "Can't write '$imap_file': $!\n"; - print $fh qq[\n]. + open FH, ">$imap_file" or die "Can't write '$imap_file': $!\n"; + print FH qq[\n]. qq[\n]; for my $rec ( @imap_coords ) { my $href = shift @$rec; - print $fh q[\n]; + print FH q[\n]; } - print $fh qq[]; - close $fh; + print FH qq[]; + close FH; } # # Print the image. # if ( $out_file ) { - open my $fh, ">$out_file" or die "Can't write '$out_file': $!\n"; - print $fh $gd->$output_type; - close $fh; + open FH, ">$out_file" or die "Can't write '$out_file': $!\n"; + print FH $gd->$output_type(); + close FH; } else { - return $gd->$output_type; + return $gd->$output_type(); } }