diff options
| author | Mathieu Arnold <mat@FreeBSD.org> | 2004-05-10 13:21:29 +0000 |
|---|---|---|
| committer | Mathieu Arnold <mat@FreeBSD.org> | 2004-05-10 13:21:29 +0000 |
| commit | d806b7b03046889ca9c9ac83b0ef72566f312b90 (patch) | |
| tree | 0e019ef4ca5b14cdf0d9d333fc62a66effd43713 /databases/p5-SQL-Translator/files/5.005_03-patch-lib::SQL::Translator::Producer::Diagram.pm | |
| parent | - Update to version 1.0.1 (diff) | |
Now works with stock perl 5.005_03
PR: 66431
Submitted by: Lars Thegler <lars@thegler.dk> (maintainer)
Diffstat (limited to 'databases/p5-SQL-Translator/files/5.005_03-patch-lib::SQL::Translator::Producer::Diagram.pm')
| -rw-r--r-- | databases/p5-SQL-Translator/files/5.005_03-patch-lib::SQL::Translator::Producer::Diagram.pm | 39 |
1 files changed, 39 insertions, 0 deletions
diff --git a/databases/p5-SQL-Translator/files/5.005_03-patch-lib::SQL::Translator::Producer::Diagram.pm b/databases/p5-SQL-Translator/files/5.005_03-patch-lib::SQL::Translator::Producer::Diagram.pm new file mode 100644 index 000000000000..c608978dffb4 --- /dev/null +++ b/databases/p5-SQL-Translator/files/5.005_03-patch-lib::SQL::Translator::Producer::Diagram.pm @@ -0,0 +1,39 @@ +--- 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[<html><body><img src="" usemap="#imap" border="0">\n]. ++ open FH, ">$imap_file" or die "Can't write '$imap_file': $!\n"; ++ print FH qq[<html><body><img src="" usemap="#imap" border="0">\n]. + qq[<map name="imap">\n]; + for my $rec ( @imap_coords ) { + my $href = shift @$rec; +- print $fh q[<area coords="].join(',', @$rec).qq[" href="$href">\n]; ++ print FH q[<area coords="].join(',', @$rec).qq[" href="$href">\n]; + } +- print $fh qq[</body></html>]; +- close $fh; ++ print FH qq[</body></html>]; ++ 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(); + } + } + |