fix compatibility with perl 5.26

cooper · Oct 21, 2017 · 93dd6aa · 93dd6aa
1 parent b7851db
commit 93dd6aa
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/VERSION b/VERSION
@@ -1 +1 @@
-13.00
+13.001
diff --git a/bin/ircd b/bin/ircd
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# Copyright (c) 2010-16, Mitchell Cooper
+# Copyright (c) 2010-17, Mitchell Cooper
 use warnings; use strict; use 5.010;
 foreach ([qw(__WARN__ WARNING)], [qw(TERM terminate )], [qw(KILL terminate)],
          [qw(INT    terminate)], [qw(PIPE signalpipe)], [qw(HUP  signalhup)]) {
@@ -9,7 +9,7 @@ BEGIN {
     defined($run_dir = shift @ARGV) or die "No directory specified";
     die "Run directory does not exist" unless -d $run_dir;
     chdir $run_dir or die "Can't access run directory";
-    foreach (map { "$run_dir/lib$_" } ('', qw(/evented-object/lib
+    foreach ($run_dir, map { "$run_dir/lib$_" } ('', qw(/evented-object/lib
         /evented-api-engine/lib))) { unshift @INC, $_ }
     require Evented::API::Engine;
 }