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;
}