r55951 - /scripts/patchedit

[jozef-guest at users.alioth.debian.org]

Author: jozef-guest
Date: Sun Apr 11 14:02:50 2010
New Revision: 55951

URL: http://svn.debian.org/wsvn/?sc=1&rev=55951
Log:
first check than fix, sort Bug-

Modified:
    scripts/patchedit

Modified: scripts/patchedit
URL: http://svn.debian.org/wsvn/scripts/patchedit?rev=55951&op=diff
==============================================================================
--- scripts/patchedit (original)
+++ scripts/patchedit Sun Apr 11 14:02:50 2010
@@ -151,9 +151,9 @@
 				edit_patch($patch_file);
 			}
 			when ('check') {
+				check_patch($patch_file, $also_optional);
 				fix_patch($patch_file, $also_optional)
 					if $do_fix;
-				check_patch($patch_file, $also_optional);
 			}
 		}
 	}
@@ -193,7 +193,7 @@
 	open(my $patch_fh, '>', $patch) or die 'failed to open "'.$patch.'" - '.$!;
 	foreach my $key (@standard_fields) {
 		if ($key eq 'Bug') {
-			foreach my $key (grep { m/Bug-/ } keys %{$patch_content}) {
+			foreach my $key (grep { m/Bug-/ } sort keys %{$patch_content}) {
 				print $patch_fh $key, ': ', $patch_content->{$key};
 			}
 		}