From 304dabde4db121ff97d6090e537b96d892d51294 Mon Sep 17 00:00:00 2001
From: Niels van Dijke <perlboy@cpan.org>
Date: Mon, 21 Nov 2022 12:53:48 +0000
Subject: Edit to make Perl look like C source implementation

---
 challenge-192/perlboy1967/perl/ch-1.pl | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/challenge-192/perlboy1967/perl/ch-1.pl b/challenge-192/perlboy1967/perl/ch-1.pl
index f40a39c3a1..fb4e36b839 100755
--- a/challenge-192/perlboy1967/perl/ch-1.pl
+++ b/challenge-192/perlboy1967/perl/ch-1.pl
@@ -31,9 +31,11 @@ sub binaryFlipString ($) {
 sub binaryFlipBinary ($) {
   my ($i,$m) = ($_[0],0);
 
-  # Create bitmask for 'AND' below
+  # Create bitmask for 'AND' in 'return'
   while ($i) {
-    $i >>= 1; $m = ($m << 1) + 1;
+    $i >>= 1; 
+    $m <<= 1;
+    $m++;
   }
 
   return ~$_[0] & $m;
-- 
cgit