From 45f12a9354e7f3ac440a829d7d0efa1031e0169d Mon Sep 17 00:00:00 2001
From: Juerd Waalboer <juerd@tnx.nl>
Date: Tue, 6 Sep 2022 23:48:55 +0200
Subject: [PATCH] Fix saving files in text editor

It stored the old content, so effectively not changing the file.

I don't really understand why *this* was the version I committed,
because I was sure I tested it and it worked :)
---
 lib/RevBank/TextEditor.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/lib/RevBank/TextEditor.pm b/lib/RevBank/TextEditor.pm
index 01e9913..81a671d 100644
--- a/lib/RevBank/TextEditor.pm
+++ b/lib/RevBank/TextEditor.pm
@@ -130,8 +130,8 @@ sub _editor($title, $origdata) {
                     ],
                     -values => [ 1, 0 ],
                 );
-                $return = $origdata if $answer == 1;
-                $cui->mainloopExit  if $answer >= 0;
+                $return = $editor->get if $answer == 1;
+                $cui->mainloopExit     if $answer >= 0;
             } else {
                 $cui->mainloopExit;
             }
@@ -163,6 +163,7 @@ sub edit($filename) {
         or die "Someone else is alreading editing $filename.\n";
 
     my $save = _editor($filename, scalar slurp $filename);
+
     if (defined $save) {
         spurt $filename, $save;
         print "$filename updated.\n";