Changeset 13482

Timestamp:

May 22, 2007, 3:24:21 PM (19 years ago)

Author:

Paul Price

Message:

Handling the return value of system calls.

File:

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

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

@@ -1 +1 @@
 # Copyright (c) 2006  Paul Price, Joshua Hoblitt
 #
-# $Id: Config.pm,v 1.46 2007-05-22 04:22:00 price Exp $
+# $Id: Config.pm,v 1.47 2007-05-23 01:24:21 price Exp $
 
 package PS::IPP::Config;
@@ -354 +354 @@
     $source = $self->file_resolve( $source );
 
-    system "cp $source $target";
+    system "cp $source $target" or (carp "Can't copy file $source to $target." and
+                                    exit($PS_EXIT_DATA_ERROR));
+    return 1;
 }
 
@@ -388 +390 @@
     my $resolved = $self->convert_filename_absolute( $name );
     my ( $vol, $dirs, $file ) = File::Spec->splitpath( $resolved );
-    system "mkdir -p $dirs";
+    system "mkdir -p $dirs" or (carp "Can't create directory $dirs" and exit($PS_EXIT_DATA_ERROR));
 
     return $name;