From 11758856a710b653da90f798c22d7f5e98125fc0 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Mon, 26 Mar 2012 18:21:10 +0000
Subject: (recreate_srpm) document it + perl_checker cleanup

---
 lib/Iurt/Urpmi.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'lib/Iurt/Urpmi.pm')

diff --git a/lib/Iurt/Urpmi.pm b/lib/Iurt/Urpmi.pm
index f9ff838..7528623 100644
--- a/lib/Iurt/Urpmi.pm
+++ b/lib/Iurt/Urpmi.pm
@@ -591,6 +591,7 @@ sub fix_srpm_name {
 	$srpm;
 }
 
+# return ("exit_code", srpm, spec)
 sub recreate_srpm {
     my ($_self, $run, $config, $chroot_tmp, $dir, $srpm, $luser, $b_retry) = @_;
 # recreate a new srpm for buildarch condition in the spec file
@@ -667,7 +668,7 @@ sub recreate_srpm {
 
     # Return if we can't regenerate srpm
     #
-    return (0, ,) unless $ret;
+    return 0 unless $ret;
 
     # CM: was: foreach my $file (readdir $dir)
     #     The above line returned entries in a strange order in my test
-- 
cgit v1.2.1