dice: d6: image: Put comment at the end

usvg seems to hate it at the start.

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>

diff --git a/dice/extract-image-only b/dice/extract-image-only
index 5a9ddb9df2d8a864e0d3474f62bbe81f12dfdb93..9a181eb50ff87645e544f003e99babbe65d1c201 100755 (executable)
--- a/dice/extract-image-only
+++ b/dice/extract-image-only
@@ -10,8 +10,6 @@ use Data::Dumper;
 
 my $dom = XML::LibXML->load_xml(IO => \*STDIN) or die;
 
-print "<!--made by dice/extract-image-only-->\n" or die $!;
-
 my $nodes = $dom->findnodes('//*[@inkscape:label]');
 foreach my $node (@$nodes) {
   my $l = $node->getAttribute('inkscape:label');
@@ -21,3 +19,5 @@ foreach my $node (@$nodes) {
 }
 
 print $dom->toString or die $!;
+
+print "<!-- made by dice/extract-image-only -->\n" or die $!;