Changeset 13491

Timestamp:

May 23, 2007, 2:16:08 PM (19 years ago)

Author:

Paul Price

Message:

Prevent failure when the directory already exists.

File:

• trunk/PS-IPP-Config/lib/PS/IPP/Config.pm (modified) (2 diffs)

trunk/PS-IPP-Config/lib/PS/IPP/Config.pm

@@ -1 +1 @@
 # Copyright (c) 2006  Paul Price, Joshua Hoblitt
 #
-# $Id: Config.pm,v 1.47 2007-05-23 01:24:21 price Exp $
+# $Id: Config.pm,v 1.48 2007-05-24 00:16:08 price Exp $
 
 package PS::IPP::Config;
@@ -390 +390 @@
     my $resolved = $self->convert_filename_absolute( $name );
     my ( $vol, $dirs, $file ) = File::Spec->splitpath( $resolved );
-    system "mkdir -p $dirs" or (carp "Can't create directory $dirs" and exit($PS_EXIT_DATA_ERROR));
+    unless (-d $dirs) {
+        system "mkdir -p $dirs" or (carp "Can't create directory $dirs" and exit($PS_EXIT_DATA_ERROR));
+    }
 
     return $name;