X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lib%2FPerl%2FTidy%2FIOScalar.pm;h=d74960f69ca35c20c9ea053ae8a14e7c161ada6a;hb=c514d57dc8088e1f4d3f51857b1155c20085c296;hp=49151db192b45cfa4d95606f290fa14e4e5345f9;hpb=880633cc084e9d787eb9f760d3851c5d660db17c;p=perltidy.git

diff --git a/lib/Perl/Tidy/IOScalar.pm b/lib/Perl/Tidy/IOScalar.pm
index 49151db..d74960f 100644
--- a/lib/Perl/Tidy/IOScalar.pm
+++ b/lib/Perl/Tidy/IOScalar.pm
@@ -10,7 +10,9 @@ package Perl::Tidy::IOScalar;
 use strict;
 use warnings;
 use Carp;
-our $VERSION = '20220217';
+our $VERSION = '20220613';
+
+use constant EMPTY_STRING => q{};
 
 sub AUTOLOAD {
 
@@ -50,7 +52,7 @@ EOM
 
     }
     if ( $mode eq 'w' ) {
-        ${$rscalar} = "";
+        ${$rscalar} = EMPTY_STRING;
         return bless [ $rscalar, $mode ], $package;
     }
     elsif ( $mode eq 'r' ) {