From b3af66be6a1a0e317e2a4ff5326f3ec68d04e83a Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Tue, 4 Dec 2012 22:42:37 +0000
Subject: perl_checker cleanups

---
 rebuild-packages | 25 ++++++++++---------------
 1 file changed, 10 insertions(+), 15 deletions(-)

diff --git a/rebuild-packages b/rebuild-packages
index 1aa8862..8af7bb2 100755
--- a/rebuild-packages
+++ b/rebuild-packages
@@ -1,7 +1,7 @@
 #!/usr/bin/perl -w
 
 use strict;
-use File::Temp qw/tempfile/;
+use File::Temp qw(tempfile);
 use RPM4;
 use Youri::Package::RPM::Updater;
 use LWP::UserAgent;
@@ -12,32 +12,29 @@ my $status_page = 'http://pkgsubmit.mageia.org/';
 my $svn_root = 'svn+ssh://svn.mageia.org/svn/packages/cauldron/';
 my $commit_msg = 'Distro Rebuild';
 my $bs_max_todo_queue = 5;
-my $updater = Youri::Package::RPM::Updater->new();
+my $updater = Youri::Package::RPM::Updater->new;
 
 my ($ci_fh, $ci_fname) = tempfile(UNLINK => 1);
 print $ci_fh $commit_msg;
 close $ci_fh;
 
-sub list_from_file
-{
+sub list_from_file {
     my @res = cat_($_[0]);
     chomp @res;
     return @res;
 }
 
-sub get_bs_queue_todo
-{
+sub get_bs_queue_todo() {
     my $ua = LWP::UserAgent->new;
     my $req = HTTP::Request->new(HEAD => $status_page);
     my $res = $ua->request($req);
-    return ($res->is_success) ? $res->header('X-BS-Queue-Todo') : 9999;
+    return $res->is_success ? $res->header('X-BS-Queue-Todo') : 9999;
 }
 
-sub bump_release
-{
+sub bump_release {
     my ($pkgname) = @_;
-    my $oldcwd = getcwd;
-    my $tmpdir = File::Temp->newdir();
+    my $oldcwd = getcwd();
+    my $tmpdir = File::Temp->newdir;
     chdir $tmpdir->dirname;
     system('svn', 'co', "${svn_root}/${pkgname}/current");
     chdir 'current';
@@ -46,8 +43,7 @@ sub bump_release
     chdir $oldcwd;
 }
 
-sub submit_package
-{
+sub submit_package {
     my ($pkgname) = @_;
     while (get_bs_queue_todo() > $bs_max_todo_queue) {
 	sleep 20;
@@ -55,8 +51,7 @@ sub submit_package
     system('mgarepo', 'submit', $pkgname);
 }
 
-sub rebuild_package
-{
+sub rebuild_package {
     my ($pkgname) = @_;
     bump_release $pkgname;
     submit_package $pkgname;
-- 
cgit v1.2.1