From b4864450cc8fe2ec8f7d1f495d45834fb3cb5a62 Mon Sep 17 00:00:00 2001 From: Dobrica Pavlinusic Date: Mon, 13 Sep 2010 18:26:05 +0000 Subject: [PATCH] warn about files in ip/ dir --- lib/PXElator/client.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lib/PXElator/client.pm b/lib/PXElator/client.pm index 066867c..7fc943d 100644 --- a/lib/PXElator/client.pm +++ b/lib/PXElator/client.pm @@ -50,7 +50,8 @@ sub conf { } my $path = ip_path $ip; - mkdir $path unless -d $path; + mkdir $path unless -e $path; + warn "WARNING: $path not directory" unless -d $path; $path .= '/' . $name; if ( defined $value ) { -- 2.20.1