pf-tools commit: r889 [parmelan-guest] - /branches/next-gen/lib/PFTools/Update/Common.pm

[parmelan-guest at users.alioth.debian.org]

Author: parmelan-guest
Date: Tue Sep  7 14:36:28 2010
New Revision: 889

URL: http://svn.debian.org/wsvn/pf-tools/?sc=1&rev=889
Log:
Warn() instead of carp, at least for now.

Modified:
    branches/next-gen/lib/PFTools/Update/Common.pm

Modified: branches/next-gen/lib/PFTools/Update/Common.pm
URL: http://svn.debian.org/wsvn/pf-tools/branches/next-gen/lib/PFTools/Update/Common.pm?rev=889&op=diff
==============================================================================
--- branches/next-gen/lib/PFTools/Update/Common.pm (original)
+++ branches/next-gen/lib/PFTools/Update/Common.pm Tue Sep  7 14:36:28 2010
@@ -22,7 +22,6 @@
 use strict;
 use warnings;
 
-use Carp;
 use English qw( -no_match_vars );    # Avoids regex performance penalty
 use Exporter;
 use File::Copy;
@@ -297,11 +296,11 @@
 
     eval { make_path($dir); };
     if ($EVAL_ERROR) {
-        carp "make_path($dir): $EVAL_ERROR";    # FIXME cf. deferredlog*
+        Warn( $CODE->{'OPEN'}, "make_path($dir): $EVAL_ERROR" );
         return;
     }
 
-    return 1;                                   # OK
+    return 1;    # OK
 }
 
 sub Get_tmp_dest ($) {