t/lib/common.pl: Ignore editor droppings

Father Chrysostomos · Father Chrysostomos · commit aebe74f4cf6c · 2016-07-31T06:35:05.000-07:00
This bites me all the time.
diff --git a/t/lib/common.pl b/t/lib/common.pl
@@ -27,7 +27,7 @@ BEGIN
     print "ARGV = [@ARGV]\n";
     @w_files = map { "./lib/$pragma_name/$_" } @ARGV;
 } else {
-    @w_files = sort grep !/\.rej\z/,
+    @w_files = sort grep !/( \.rej | ~ | \ \(Autosaved\)\.txt ) \z/nx,
 			 glob catfile(curdir(), "lib", $pragma_name, "*");
 }
 

Original file line number	Diff line number	Diff line change
`@@ -27,7 +27,7 @@ BEGIN`
`27`	`27`	`print "ARGV = [@ARGV]\n";`
`28`	`28`	`@w_files = map { "./lib/$pragma_name/$_" } @ARGV;`
`29`	`29`	`} else {`
`30`		`- @w_files = sort grep !/\.rej\z/,`
	`30`	`+ @w_files = sort grep !/( \.rej \| ~ \| \ \(Autosaved\)\.txt ) \z/nx,`
`31`	`31`	`glob catfile(curdir(), "lib", $pragma_name, "*");`
`32`	`32`	`}`
`33`	`33`