From 9b0ba5b4580b584d4a0db0b380a95dde28c8e619 Mon Sep 17 00:00:00 2001
From: a <a@b.c>
Date: Tue, 1 Nov 2016 19:22:07 +0100
Subject: [PATCH] Pass "pointer" to the writer subroutine

---
 portable_sed.pl | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/portable_sed.pl b/portable_sed.pl
index 4b75ccb..9b58543 100644
--- a/portable_sed.pl
+++ b/portable_sed.pl
@@ -40,7 +40,7 @@ sub re_write {
   open($fh, '>:encoding(UTF-8)', $filename) 
     or die "Could not open file '$filename' $!";
 
-  print $fh $concatArr;
+  print $fh $$concatArr;
   close($fh);
   return;
 }
@@ -54,7 +54,7 @@ sub reflace_configure {
   $arr[9] = $new;
   my $concatArr = join("\n", @arr);
 
-  re_write($filename,$concatArr);
+  re_write($filename,\$concatArr);
   return;
 }
 
@@ -67,7 +67,7 @@ sub reflace_many {
   $derefs =~ s/$ag3/$ag4/g;
   $derefs =~ s/$ag5/$ag6/g;
 
-  re_write($filename,$derefs);
+  re_write($filename,\$derefs);
   return;
 }
 
@@ -77,7 +77,7 @@ sub reflace_single {
   my $derefs = $$concatArr;
 
   $derefs =~ s/$ag1/$ag2/g;
-  re_write($filename,$derefs);
+  re_write($filename,\$derefs);
   return;
 }
 
-- 
2.11.0