From 8116d356cd2b67bb901bdddf8c2d4a75154f1643 Mon Sep 17 00:00:00 2001 From: Jamie Cameron Date: Mon, 29 Dec 2014 09:44:42 -0800 Subject: [PATCH] Fix join warning by converting undefs to empty strings --- htaccess-htpasswd/htaccess-lib.pl | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/htaccess-htpasswd/htaccess-lib.pl b/htaccess-htpasswd/htaccess-lib.pl index fb6c7c859..c6bfc9e48 100755 --- a/htaccess-htpasswd/htaccess-lib.pl +++ b/htaccess-htpasswd/htaccess-lib.pl @@ -83,7 +83,8 @@ my $d; my $fh = "DIRS"; &open_tempfile($fh, ">$directories_file"); foreach $d (@{$_[0]}) { - &print_tempfile($fh, join("\t", @$d),"\n"); + my @safed = map { defined($_) ? $_ : "" } @$d; + &print_tempfile($fh, join("\t", @safed),"\n"); } &close_tempfile($fh); }