don't copy grammar on failure if sorted
diff --git a/scripts/support/grammar-packer.pl b/scripts/support/grammar-packer.pl
index b8db301..f4a4a4d 100755
--- a/scripts/support/grammar-packer.pl
+++ b/scripts/support/grammar-packer.pl
@@ -115,6 +115,6 @@
 } else {
   print STDERR "* FATAL: Couldn't pack the grammar.\n";
   print STDERR "* Copying sorted grammars ($grammars) to current directory.\n";
-  system("cp $grammars .");
+  system("cp $grammars .") unless $opts{s};
   exit 1;
 }