# New Ticket Created by  "Lee Duhem" 
# Please include the string:  [perl #41140]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=41140 >


Sorry, forget the patch...
Index: src/packfile.c
===================================================================
--- src/packfile.c	(revision 16268)
+++ src/packfile.c	(working copy)
@@ -2187,7 +2187,7 @@
 
     default_dump_header(interp, self);
 
-    PIO_printf(interp, "mappings => [\n");
+    PIO_printf(interp, "\n  mappings => [\n");
     for (i = 0; i < debug->num_mappings; i++) {
         PIO_printf(interp, "    #%d\n    [\n", i);
         PIO_printf(interp, "        OFFSET => %d,\n",
@@ -2211,7 +2211,7 @@
         }
         PIO_printf(interp, "    ],\n");
     }
-    PIO_printf(interp, "]\n");
+    PIO_printf(interp, "  ]\n");
 
     j = self->data ? 0: self->file_offset + 4;
     if (j % 8)

Reply via email to