From c1e398be894ecce6394bd76c99b76c022979ac62 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 11 Nov 2002 13:29:44 +0000
Subject: various small syntax enhancements to please perl_checker

---
 perl-install/common.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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

diff --git a/perl-install/common.pm b/perl-install/common.pm
index 58872df01..6dd6f279c 100644
--- a/perl-install/common.pm
+++ b/perl-install/common.pm
@@ -37,7 +37,7 @@ sub salt {
     open F, devices::make("random") or die "missing random";
     my $s; read F, $s, $nb;
     local $_ = pack "b8" x $nb, unpack "b6" x $nb, $s;
-    tr [\0-\x3f] [0-9a-zA-Z./];
+    tr|\0-\x3f|0-9a-zA-Z./|;
     $_;
 }
 
-- 
cgit v1.2.1