diff options
| -rw-r--r-- | perl-install/services.pm | 7 |
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 { |