From 5b8ed1baaf1ecf8a9f2c92e5a0b6be047dc402fd Mon Sep 17 00:00:00 2001
From: Ryan Voots <simcop2387@simcop2387.info>
Date: Tue, 20 Apr 2021 12:00:06 -0400
Subject: [PATCH] add langs

---
 app.cfg                    | 2 +-
 hypnotoad.pid              | 2 +-
 lib/App/Model/Eval.pm      | 4 ++--
 lib/App/Model/Languages.pm | 2 ++
 4 files changed, 6 insertions(+), 4 deletions(-)

diff --git a/app.cfg b/app.cfg
index 2dc0295..5a43341 100644
--- a/app.cfg
+++ b/app.cfg
@@ -36,7 +36,7 @@ weight="2.5"
 #  weight="1.0"
 
 [announce]
-host="192.168.32.1"
+host="192.168.196.2"
 port="1784"
 protocol="perlbot"
 
diff --git a/hypnotoad.pid b/hypnotoad.pid
index 1a7fadd..f927a7b 100644
--- a/hypnotoad.pid
+++ b/hypnotoad.pid
@@ -1 +1 @@
-872665
+172893
diff --git a/lib/App/Model/Eval.pm b/lib/App/Model/Eval.pm
index fbaa5ac..2043cec 100644
--- a/lib/App/Model/Eval.pm
+++ b/lib/App/Model/Eval.pm
@@ -35,8 +35,8 @@ sub _get_cache {
   return $memd->get($key);
 }
 
-my @major_langs = qw/perl perl5.32.0 perl5.30.3 perl5.28.2 perl5.26.3 perl5.24.4 perl5.22.4 perl5.20.3 perl5.18.4 perl5.16.3 perl5.14.4 perl5.12.5 perl5.10.1 perl5.8.9 perl5.6.2/;
-my @full_langs = map {"perl$_"} '', qw/5.32.0 5.30.3 5.30.2 5.30.1 5.30.0 5.28.2 5.28.1 5.28.0 5.26.3 5.26.2 5.26.1 5.26.0 5.24.4 5.24.3 5.24.2 5.24.1 5.24.0 5.22.4 5.22.3 5.22.2 5.22.1 5.22.0 5.20.3 5.20.2 5.20.1 5.20.0 5.18.4 5.18.3 5.18.2 5.18.1 5.18.0 5.16.3 5.16.2 5.16.1 5.16.0 5.14.4 5.14.3 5.14.2 5.14.1 5.14.0 5.12.5 5.12.4 5.12.3 5.12.2 5.12.1 5.12.0 5.10.1 5.10.0 5.8.9 5.8.8 5.8.7 5.8.6 5.8.5 5.8.4 5.8.3 5.8.2 5.8.1 5.8.0 5.6.2 5.6.1 5.6.0/;
+my @major_langs = qw/perl perl5.32.1 perl5.30.3 perl5.28.2 perl5.26.3 perl5.24.4 perl5.22.4 perl5.20.3 perl5.18.4 perl5.16.3 perl5.14.4 perl5.12.5 perl5.10.1 perl5.8.9 perl5.6.2/;
+my @full_langs = map {"perl$_"} '', qw/5.32.1 5.32.0 5.30.3 5.30.2 5.30.1 5.30.0 5.28.2 5.28.1 5.28.0 5.26.3 5.26.2 5.26.1 5.26.0 5.24.4 5.24.3 5.24.2 5.24.1 5.24.0 5.22.4 5.22.3 5.22.2 5.22.1 5.22.0 5.20.3 5.20.2 5.20.1 5.20.0 5.18.4 5.18.3 5.18.2 5.18.1 5.18.0 5.16.3 5.16.2 5.16.1 5.16.0 5.14.4 5.14.3 5.14.2 5.14.1 5.14.0 5.12.5 5.12.4 5.12.3 5.12.2 5.12.1 5.12.0 5.10.1 5.10.0 5.8.9 5.8.8 5.8.7 5.8.6 5.8.5 5.8.4 5.8.3 5.8.2 5.8.1 5.8.0 5.6.2 5.6.1 5.6.0/;
 
 sub get_eval {
     my ($self, $paste_id, $code, $langs, $wait, $callback) = @_;
diff --git a/lib/App/Model/Languages.pm b/lib/App/Model/Languages.pm
index 05ad06e..c2337ba 100644
--- a/lib/App/Model/Languages.pm
+++ b/lib/App/Model/Languages.pm
@@ -22,6 +22,8 @@ my @langs = (
     {name => "evaltall",   mode => "perl", description => "Perl (EvalAll) (major threaded)"},
     {name => "evalrall",   mode => "perl", description => "Perl (EvalAll) (major un+threaded)"},
     {name => "evalyall",   mode => "perl", description => "Perl (EvalY'All) (EVERYTHING)"},
+    {name => "perl5.32.1", mode => "perl", description => "Perl 5.32.1"},
+    {name => "perl5.32.1t", mode => "perl", description => "Perl 5.32.1 (threaded)"},
     {name => "perl5.32.0", mode => "perl", description => "Perl 5.32.0"},
     {name => "perl5.32.0t", mode => "perl", description => "Perl 5.32.0 (threaded)"},
     {name => "perl5.30.3", mode => "perl", description => "Perl 5.30.3"},