avoid undef warn

diff --git a/scripts/Tatzer b/scripts/Tatzer
index bbd7fdbe88791b4b670ceedd28060d464037b4da..2483decc6f81811c2cdfe7639732552c512278a8 100755 (executable)
--- a/scripts/Tatzer
+++ b/scripts/Tatzer
@@ -125,7 +125,7 @@ if ( defined $SEED )
     exec( "bash", $FN );
 }
 
-my $HOME = $ENV{HOME};
+my $HOME = $ENV{HOME} // $ENV{userprofile} // "";
 
 foreach my $rec (
     { id => "c2",  a => "core2", },