[add priority to stitching
John Meacham <john@repetae.net>**20080222014442] hunk ./utils/stitch.prl 17
+my %s;
+
hunk ./utils/stitch.prl 22
-        /^\{\-[#@](\w+)\s*$/ or next;
-        my ($section,$text) = ($1,"");
+        /^\{\-[#@](\w+)(\s+(\d+))?\s*$/ or next;
+        my ($section,$text,$order) = ($1,"",defined $3 ? $3 : 100);
hunk ./utils/stitch.prl 28
-        $h{$section}{text} .= $text;
+        $s{$section} ||= [];
+        push @{$s{$section} ||= []}, [$order,$text];
hunk ./utils/stitch.prl 33
+
+foreach (keys %s) {
+    $h{$_}{text} = join "\n",map { $_->[1] } sort { $a->[0] <=> $b->[0] } @{$s{$_}};
+}