# HG changeset patch
# User HackEso <hackeso@esolangs.org>
# Date 1573942731 0
# Node ID 3ae7ca729048c9d670d63cd0c8aaf78a907003d1
# Parent  c3a1d7576420766146509c281c7f423734900956
<fizzie> ` for w in benvenuto bienvenido bienvenue bonvenon tervetuloa v\xc3\xa4lkommen velkomin velkommen welcome welkom wercome willkommen \xd0\xb4\xd0\xbe\xd0\xb1\xd1\x80\xd0\xbe-\xd0\xbf\xd0\xbe\xd0\xb6\xd0\xb0\xd0\xbb\xd0\xbe\xd0\xb2\xd0\xb0\xd1\x82\xd1\x8c; do sed -i -e \'2s|^|my $bin = $ENV{"HACKENV"}; |;s|bin/[@?]|$&|g\' /hackenv/bin/$w; done

diff -r c3a1d7576420 -r 3ae7ca729048 bin/benvenuto
--- a/bin/benvenuto	Sat Nov 16 22:15:26 2019 +0000
+++ b/bin/benvenuto	Sat Nov 16 22:18:51 2019 +0000
@@ -1,2 +1,2 @@
 #!/usr/bin/perl -w
-if (defined($_=shift)) { s/ *$//;  s/ +/ @ /g; exec "bin/@", $_ . " ? welcome.it"; } else { exec "bin/?", "welcome.it"; }
+my $bin = $ENV{"HACKENV"}; if (defined($_=shift)) { s/ *$//;  s/ +/ @ /g; exec "$bin/@", $_ . " ? welcome.it"; } else { exec "$bin/?", "welcome.it"; }
diff -r c3a1d7576420 -r 3ae7ca729048 bin/bienvenido
--- a/bin/bienvenido	Sat Nov 16 22:15:26 2019 +0000
+++ b/bin/bienvenido	Sat Nov 16 22:18:51 2019 +0000
@@ -1,2 +1,2 @@
 #!/usr/bin/perl -w
-if (defined($_=shift)) { s/ *$//;  s/ +/ @ /g; exec "bin/@", $_ . " ? welcome.es"; } else { exec "bin/?", "welcome.es"; }
+my $bin = $ENV{"HACKENV"}; if (defined($_=shift)) { s/ *$//;  s/ +/ @ /g; exec "$bin/@", $_ . " ? welcome.es"; } else { exec "$bin/?", "welcome.es"; }
diff -r c3a1d7576420 -r 3ae7ca729048 bin/bienvenue
--- a/bin/bienvenue	Sat Nov 16 22:15:26 2019 +0000
+++ b/bin/bienvenue	Sat Nov 16 22:18:51 2019 +0000
@@ -1,2 +1,2 @@
 #!/usr/bin/perl -w
-if (defined($_=shift)) { s/ *$//;  s/ +/ @ /g; exec "bin/@", $_ . " ? welcome.fr"; } else { exec "bin/?", "welcome.fr"; }
+my $bin = $ENV{"HACKENV"}; if (defined($_=shift)) { s/ *$//;  s/ +/ @ /g; exec "$bin/@", $_ . " ? welcome.fr"; } else { exec "$bin/?", "welcome.fr"; }
diff -r c3a1d7576420 -r 3ae7ca729048 bin/bonvenon
--- a/bin/bonvenon	Sat Nov 16 22:15:26 2019 +0000
+++ b/bin/bonvenon	Sat Nov 16 22:18:51 2019 +0000
@@ -1,2 +1,2 @@
 #!/usr/bin/perl -w
-if (defined($_=shift)) { s/ *$//;  s/ +/ @ /g; exec "bin/@", $_ . " ? welcome.eo"; } else { exec "bin/?", "welcome.eo"; }
+my $bin = $ENV{"HACKENV"}; if (defined($_=shift)) { s/ *$//;  s/ +/ @ /g; exec "$bin/@", $_ . " ? welcome.eo"; } else { exec "$bin/?", "welcome.eo"; }
diff -r c3a1d7576420 -r 3ae7ca729048 bin/tervetuloa
--- a/bin/tervetuloa	Sat Nov 16 22:15:26 2019 +0000
+++ b/bin/tervetuloa	Sat Nov 16 22:18:51 2019 +0000
@@ -1,2 +1,2 @@
 #!/usr/bin/perl -w
-if (defined($_=shift)) { s/ *$//;  s/ +/ @ /g; exec "bin/@", $_ . " ? welcome.fi"; } else { exec "bin/?", "welcome.fi"; }
+my $bin = $ENV{"HACKENV"}; if (defined($_=shift)) { s/ *$//;  s/ +/ @ /g; exec "$bin/@", $_ . " ? welcome.fi"; } else { exec "$bin/?", "welcome.fi"; }
diff -r c3a1d7576420 -r 3ae7ca729048 bin/velkomin
--- a/bin/velkomin	Sat Nov 16 22:15:26 2019 +0000
+++ b/bin/velkomin	Sat Nov 16 22:18:51 2019 +0000
@@ -1,2 +1,2 @@
 #!/usr/bin/perl -w
-if (defined($_=shift)) { s/ *$//;  s/ +/ @ /g; exec "bin/@", $_ . " ? welcome.is"; } else { exec "bin/?", "welcome.is"; }
+my $bin = $ENV{"HACKENV"}; if (defined($_=shift)) { s/ *$//;  s/ +/ @ /g; exec "$bin/@", $_ . " ? welcome.is"; } else { exec "$bin/?", "welcome.is"; }
diff -r c3a1d7576420 -r 3ae7ca729048 bin/velkommen
--- a/bin/velkommen	Sat Nov 16 22:15:26 2019 +0000
+++ b/bin/velkommen	Sat Nov 16 22:18:51 2019 +0000
@@ -1,2 +1,2 @@
 #!/usr/bin/perl -w
-if (defined($_=shift)) { s/ *$//;  s/ +/ @ /g; exec "bin/@", $_ . " ? welcome.nb"; } else { exec "bin/?", "welcome.nb"; }
+my $bin = $ENV{"HACKENV"}; if (defined($_=shift)) { s/ *$//;  s/ +/ @ /g; exec "$bin/@", $_ . " ? welcome.nb"; } else { exec "$bin/?", "welcome.nb"; }
diff -r c3a1d7576420 -r 3ae7ca729048 bin/välkommen
--- a/bin/välkommen	Sat Nov 16 22:15:26 2019 +0000
+++ b/bin/välkommen	Sat Nov 16 22:18:51 2019 +0000
@@ -1,2 +1,2 @@
 #!/usr/bin/perl -w
-if (defined($_=shift)) { s/ *$//;  s/ +/ @ /g; exec "bin/@", $_ . " ? welcome.sv"; } else { exec "bin/?", "welcome.sv"; }
+my $bin = $ENV{"HACKENV"}; if (defined($_=shift)) { s/ *$//;  s/ +/ @ /g; exec "$bin/@", $_ . " ? welcome.sv"; } else { exec "$bin/?", "welcome.sv"; }
diff -r c3a1d7576420 -r 3ae7ca729048 bin/welcome
--- a/bin/welcome	Sat Nov 16 22:15:26 2019 +0000
+++ b/bin/welcome	Sat Nov 16 22:18:51 2019 +0000
@@ -1,2 +1,2 @@
 #!/usr/bin/perl -w
-if (defined($_=shift)) { s/ *$//;  s/ +/ @ /g; exec "bin/@", $_ . " ? welcome"; } else { exec "bin/?", "welcome"; }
+my $bin = $ENV{"HACKENV"}; if (defined($_=shift)) { s/ *$//;  s/ +/ @ /g; exec "$bin/@", $_ . " ? welcome"; } else { exec "$bin/?", "welcome"; }
diff -r c3a1d7576420 -r 3ae7ca729048 bin/welkom
--- a/bin/welkom	Sat Nov 16 22:15:26 2019 +0000
+++ b/bin/welkom	Sat Nov 16 22:18:51 2019 +0000
@@ -1,2 +1,2 @@
 #!/usr/bin/perl -w
-if (defined($_=shift)) { s/ *$//;  s/ +/ @ /g; exec "bin/@", $_ . " ? welcome.nl"; } else { exec "bin/?", "welcome.nl"; }
+my $bin = $ENV{"HACKENV"}; if (defined($_=shift)) { s/ *$//;  s/ +/ @ /g; exec "$bin/@", $_ . " ? welcome.nl"; } else { exec "$bin/?", "welcome.nl"; }
diff -r c3a1d7576420 -r 3ae7ca729048 bin/wercome
--- a/bin/wercome	Sat Nov 16 22:15:26 2019 +0000
+++ b/bin/wercome	Sat Nov 16 22:18:51 2019 +0000
@@ -1,2 +1,2 @@
 #!/usr/bin/perl -w
-if (defined($_=shift)) { s/ *$//;  s/ +/ @ /g; exec "bin/@", $_ . " ? welcome.ja"; } else { exec "bin/?", "welcome.ja"; }
+my $bin = $ENV{"HACKENV"}; if (defined($_=shift)) { s/ *$//;  s/ +/ @ /g; exec "$bin/@", $_ . " ? welcome.ja"; } else { exec "$bin/?", "welcome.ja"; }
diff -r c3a1d7576420 -r 3ae7ca729048 bin/willkommen
--- a/bin/willkommen	Sat Nov 16 22:15:26 2019 +0000
+++ b/bin/willkommen	Sat Nov 16 22:18:51 2019 +0000
@@ -1,2 +1,2 @@
 #!/usr/bin/perl -w
-if (defined($_=shift)) { s/ *$//;  s/ +/ @ /g; exec "bin/@", $_ . " ? welcome.de"; } else { exec "bin/?", "welcome.de"; }
+my $bin = $ENV{"HACKENV"}; if (defined($_=shift)) { s/ *$//;  s/ +/ @ /g; exec "$bin/@", $_ . " ? welcome.de"; } else { exec "$bin/?", "welcome.de"; }
diff -r c3a1d7576420 -r 3ae7ca729048 bin/добро-пожаловать
--- a/bin/добро-пожаловать	Sat Nov 16 22:15:26 2019 +0000
+++ b/bin/добро-пожаловать	Sat Nov 16 22:18:51 2019 +0000
@@ -1,2 +1,2 @@
 #!/usr/bin/perl -w
-if (defined($_=shift)) { s/ *$//;  s/ +/ @ /g; exec "bin/@", $_ . " ? welcome.ru"; } else { exec "bin/?", "welcome.ru"; }
+my $bin = $ENV{"HACKENV"}; if (defined($_=shift)) { s/ *$//;  s/ +/ @ /g; exec "$bin/@", $_ . " ? welcome.ru"; } else { exec "$bin/?", "welcome.ru"; }