Package: fig2sty
Version: 1:0.1-12
Severity: normal
Tags: patch
XFig.pm return bad hash keys after parsing a compund object.
Fig Format 3.2 specification says:
First line:
type name (brief description)
---- ---- -------------------
int object_code (always 6)
int upperleft_corner_x (Fig units)
int upperleft_corner_y (Fig units)
int lowerright_corner_x (Fig units)
int lowerright_corner_y (Fig units)
XFig module designates these coordinates as 'urx', 'ury', 'llx', 'lly'.
The right notation is 'ulx', 'uly', 'lrx', 'lry'.
Gabor
-- System Information:
Debian Release: 5.0.4
APT prefers stable
APT policy: (700, 'stable'), (500, 'proposed-updates')
Architecture: i386 (i686)
Kernel: Linux 2.6.26-2-686 (SMP w/2 CPU cores)
Locale: LANG=en_US, LC_CTYPE=en_US (charmap=ISO-8859-1)
Shell: /bin/sh linked to /bin/bash
Versions of packages fig2sty depends on:
ii perl 5.10.0-19lenny2 Larry Wall's Practical Extraction
fig2sty recommends no packages.
fig2sty suggests no packages.
-- debconf-show failed
--- XFig.pm.orig 2010-03-04 13:34:14.000000000 +0100
+++ XFig.pm 2010-03-05 12:24:24.000000000 +0100
@@ -305,7 +305,7 @@
} if ($otype == 5);
do { # Compound
- @$element{'object', 'urx', 'ury', 'llx', 'lly'} = ('compound', @object);
+ @$element{'object', 'ulx', 'uly', 'lrx', 'lry'} = ('compound', @object);
$element->parseBody($fh);
} if ($otype == 6);
@@ -448,7 +448,7 @@
} if ($otype =~ /arc/i);
do { # Compound
- printf $fh "6 %i %i %i %i\n", @$self{'urx', 'ury', 'llx', 'lly'};
+ printf $fh "6 %i %i %i %i\n", @$self{'ulx', 'uly', 'lrx', 'lry'};
foreach $element (@{$self->{elements}}) {
$element->writeBody($fh);
}
