From 8a1f8c32c62083e0df172c9e34023b970ffb1bcf Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Wed, 4 Sep 2013 23:00:27 +0100
Subject: [PATCH] break out addr2localpart

---
 service | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/service b/service
index 196152f..741206c 100755
--- a/service
+++ b/service
@@ -48,13 +48,17 @@ sub nextarg () {
     return $v;
 }
 
-sub nextarg_addr () {
-    my $addr = nextarg;
+sub addr2localpart ($) {
+    my ($addr) = @_;
     return $addr if $addr !~ m/\@/;
     die "address not in correct domain (\@$dom)\n" unless $' eq $dom; #';
     return $`; #`;
 }
 
+sub nextarg_addr () {
+    return addr2localpart nextarg;
+}
+
 sub nomoreargs () {
     die "too many arguments\n" if @ARGV;
 }
-- 
2.30.2