From 1464b24e55252b960c7d1ff29ee5f0c1dc71d2bb Mon Sep 17 00:00:00 2001
From: brian d foy <briandfoy@pobox.com>
Date: Thu, 16 Mar 2023 17:02:18 -0400
Subject: [PATCH] redo after bad rebase

---
 util/range_messages_differ.pl | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/util/range_messages_differ.pl b/util/range_messages_differ.pl
index 3e9e8f8..1b8fcd7 100755
--- 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