From 518697340632e6db3d1b9c95cdf3ca8436a1f53e Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Wed, 1 Feb 2012 19:16:35 +0000
Subject: (set_nofatal) help perl_checker on callers

---
 URPM.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/URPM.pm b/URPM.pm
index 5187558..6267ac7 100644
--- a/URPM.pm
+++ b/URPM.pm
@@ -26,7 +26,9 @@ sub new {
     $self;
 }
 
-sub set_nofatal { $_[0]{nofatal} = $_[1] }
+sub set_nofatal {
+    my ($urpm, $bool) = @_;
+    $urpm->{nofatal} = $bool }
 
 sub packages_providing {
     my ($urpm, $name) = @_;
-- 
cgit v1.2.1