summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perl-install/services.pm7
1 files changed, 1 insertions, 6 deletions
diff --git a/perl-install/services.pm b/perl-install/services.pm
index 512d6a6c3..87995fc24 100644
--- a/perl-install/services.pm
+++ b/perl-install/services.pm
@@ -19,11 +19,6 @@ sub _unit_name {
"$service.service";
}
-sub _base_name {
- my ($service) = @_;
- $service =~ s/\.(service|socket|timer)$//;
-}
-
#- The name used in the lists returned by services(). For backwards compatibility,
#- use just the base name for .service units.
sub _list_name {
@@ -143,7 +138,7 @@ xfs => N_("Starts the X Font Server."),
xinetd => N_("Starts other deamons on demand."),
);
my ($name) = @_;
- my $s = $services{_base_name($name)};
+ my $s = $services{$name};
if ($s) {
$s = translate($s);
} else {