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

diff --git a/lib/Perl/Tidy/IOScalar.pm b/lib/Perl/Tidy/IOScalar.pm
index 49151db..983258c 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 = '20221112';
+
+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' ) {