Bug#572631: XFig.pm: Left/right swap at compound objects

[Gabor Kiss]

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);
     }