Added trailing $ to file matching regexp so (e.g.) emacs backup files...

Added trailing $ to file matching regexp so (e.g.) emacs backup files (patch_39_40_a.sql~) are not considered to be valid patches.

misc-scripts/schema_patch.pl

@@ -140,7 +140,7 @@ opendir(DIR, $patchdir) or
   $support->log_error("Can't opendir $patchdir: $!");
 
 while (my $file = readdir(DIR)) {
-  if ($file =~ /^patch_\d+_${schema}.*\.sql/) {
+  if ($file =~ /^patch_\d+_${schema}.*\.sql$/) {
     $support->log("$file\n", 1);
     push @patches, $file;
   }