X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lib%2FPerl%2FTidy%2FIOScalar.pm;fp=lib%2FPerl%2FTidy%2FIOScalar.pm;h=d74960f69ca35c20c9ea053ae8a14e7c161ada6a;hb=c311b5a48e1f3acf4df4bb2a2a621e1bc673bd38;hp=49151db192b45cfa4d95606f290fa14e4e5345f9;hpb=c9fc5bb23137748a6b6626bfeee6f8167c33245b;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' ) {