From 4a2e53461531395369b5e9e7bcae26e154143799 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Sun, 3 Jun 2012 16:44:32 +0000
Subject: (systemd_unit_exists) explain why we use -l

---
 perl-install/services.pm | 1 +
 1 file changed, 1 insertion(+)

(limited to 'perl-install/services.pm')

diff --git a/perl-install/services.pm b/perl-install/services.pm
index cef49bb5a..6927b71b8 100644
--- a/perl-install/services.pm
+++ b/perl-install/services.pm
@@ -468,6 +468,7 @@ sub services() {
 
 sub systemd_unit_exists {
     my ($name) = @_;
+    # we test with -l as symlinks are not valid when the system is chrooted:
     -e "$::prefix/lib/systemd/system/$name.service" or -l "$::prefix/lib/systemd/system/$name.service";
 }
 
-- 
cgit v1.2.1