From 55275c24599bd7a49e151c39fe1b78bf07290f40 Mon Sep 17 00:00:00 2001
From: Ryan Voots <simcop2387@simcop2387.info>
Date: Wed, 3 May 2017 22:37:44 -0700
Subject: [PATCH] Fix uflags

---
 lib/Sys/Linux/Namespace.pm | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/lib/Sys/Linux/Namespace.pm b/lib/Sys/Linux/Namespace.pm
index c17c391..54d7163 100644
--- a/lib/Sys/Linux/Namespace.pm
+++ b/lib/Sys/Linux/Namespace.pm
@@ -25,10 +25,12 @@ sub _uflags {
   $uflags |= CLONE_NEWNS if ($self->private_tmp || $self->private_mount);
   $uflags |= CLONE_NEWPID if ($self->private_pid);
   $uflags |= CLONE_NEWNET if ($self->private_net);
+
+  return $uflags;
 }
 
 sub _subprocess {
-  my ($self, $code, @args) = @_;
+  my ($self, $code, %args) = @_;
   die "_subprocess requires a CODE ref" unless ref $code eq 'CODE';
 
   my $pid = fork();
@@ -38,7 +40,7 @@ sub _subprocess {
     waitpid($pid, 0); # block and wait on child
     return $?;
   } else {
-    $code->(@args);
+    $code->(%args);
     _exit(0);
   }
 }
@@ -93,12 +95,12 @@ sub setup {
         $self->_subprocess(sub {
           $self->post_setup(%args);
           $code->(%args);
-        });
+        }, %args);
       } else {
         $self->post_setup(%args);
         $code->(%args);
       }
-    });
+    }, %args);
   } else {
     unshare($uflags);
     $self->post_setup(%args);