fix calls to {fatal}

2 files changed, 4 insertions, 4 deletions

diff --git a/urpm.pm b/urpm.pm
index 250a9204..631f6c93 100644
--- a/urpm.pm
+++ b/urpm.pm
@@ -105,8 +105,8 @@ sub userdir {
     my $dir = ($urpm->{urpmi_root} || '') . userdir_prefix($urpm) . $<;
     mkdir $dir, 0755; # try to create it
 
-    -d $dir && ! -l $dir or $urpm->{fatal}(N("fail to create directory %s", $dir));
-    -o $dir && -w $dir or $urpm->{fatal}(N("invalid owner for directory %s", $dir));
+    -d $dir && ! -l $dir or $urpm->{fatal}(1, N("fail to create directory %s", $dir));
+    -o $dir && -w $dir or $urpm->{fatal}(1, N("invalid owner for directory %s", $dir));
 
     $dir;
 }
diff --git a/urpm/lock.pm b/urpm/lock.pm
index ea59a983..aeb0aa3b 100644
--- a/urpm/lock.pm
+++ b/urpm/lock.pm
@@ -60,9 +60,9 @@ sub _lock {
     if (!flock($lock->{fh}, $mode | $LOCK_NB)) {
 	if ($b_wait) {
 	    $lock->{info}(N("%s database locked. waiting...", $lock->{db_name}));
-	    flock($lock->{fh}, $mode) or $lock->{fatal}(N("aborting"));
+	    flock($lock->{fh}, $mode) or $lock->{fatal}(1, N("aborting"));
 	} else {
-	    $lock->{fatal}(N("%s database locked", $lock->{db_name}));
+	    $lock->{fatal}(1, N("%s database locked", $lock->{db_name}));
 	}
     }
     $lock->{locked} = 1;