From d90e2c33fec88adabef87549ec3d1b4fb65d9587 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Fri, 31 Aug 2012 16:45:16 +0000
Subject: convert a couple comments to POD

---
 urpm/lock.pm | 27 ++++++++++++++++++++++-----
 1 file changed, 22 insertions(+), 5 deletions(-)

(limited to 'urpm/lock.pm')

diff --git a/urpm/lock.pm b/urpm/lock.pm
index 12ab7394..d480b25d 100644
--- a/urpm/lock.pm
+++ b/urpm/lock.pm
@@ -27,16 +27,33 @@ urpm::lock - urpm/rpm DB locking related routines for urpmi
 ################################################################################
 #- class functions
 
-#- lock policy concerning chroot :
-#  - lock rpm db in chroot
-#  - lock urpmi db in /
-# (options: nofatal, wait)
+
+=item rpm_db($urpm, $b_exclusive, %options)
+
+Lock urpmi DB.
+
+Lock policy concerning chroot : lock rpm db in chroot
+
+Options: nofatal, wait
+
+=cut
+
 sub rpm_db {
     my ($urpm, $b_exclusive, %options) = @_;
     my $f = ($urpm->{root} ? "$urpm->{root}/" : '') . "/var/lib/rpm/.RPMLOCK";
     urpm::lock->new($urpm, $f, 'rpm', $b_exclusive, %options);
 }
-# (options: nofatal, wait)
+
+=item urpmi_db($urpm, $b_exclusive, %options)
+
+Lock urpmi DB.
+
+Lock policy concerning chroot : lock urpmi db in /
+
+Options: nofatal, wait
+
+=cut
+
 sub urpmi_db {
     my ($urpm, $b_exclusive, %options) = @_;
     urpm::lock->new($urpm, "$urpm->{statedir}/.LOCK", 'urpmi', $b_exclusive, %options);
-- 
cgit v1.2.1