perl_checker fix (this one is needed because else perl_checker stop

package build [hint perl_checker my love you really should not die on
such stugg: this should be a warning, not an error])

1 files changed, 1 insertions, 1 deletions

diff --git a/perl-install/standalone/drakfont b/perl-install/standalone/drakfont
index 5f3dffa5c..3dd3010c6 100755
--- a/perl-install/standalone/drakfont
+++ b/perl-install/standalone/drakfont
@@ -325,7 +325,7 @@ sub convert_ttf_fonts {
 
 sub move_fonts {
     my ($src_dir, $dest_dir, @extensions) = @_;
-    my @fonts = map { s@.*/@@; $_ } map { glob("$src_dir/*.$_") } @extensions;
+    my @fonts = map { s!.*/!!; $_ } map { glob("$src_dir/*.$_") } @extensions;
     system("cd $src_dir && mv @fonts $dest_dir") if @fonts;
 }