redo after bad rebase

briandfoy · Mar 16, 2023 · 1464b24 · 1464b24
1 parent 120907e
commit 1464b24
Showing 1 changed file with 5 additions and 2 deletions.
diff --git a/util/range_messages_differ.pl b/util/range_messages_differ.pl
@@ -1,4 +1,5 @@
 #!/usr/bin/perl
+use v5.10;
 
 my @xml =
 	map {
@@ -9,5 +10,7 @@
 	map { local(@ARGV, $/) = $_; scalar <> }
 	@ARGV;
 
-exit $xml[0] eq $xml[1];  # 0 means they differ (aren't the same) - unix success
-                          # 1 means they don't differ (are the same) - unix failure
+say "Files are ", $xml[0] eq $xml[1] ? 'the same' : 'different';
+
+exit( $xml[0] eq $xml[1] );  # 0 means they differ (aren't the same) - unix success
+                             # 1 means they don't differ (are the same) - unix failure