From 25f65beed0677fa247c513705dbf538225f979c4 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sun, 19 Sep 1999 17:31:42 +0000
Subject: no_comment

---
 perl-install/common.pm | 20 ++++++++++----------
 1 file changed, 10 insertions(+), 10 deletions(-)

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

diff --git a/perl-install/common.pm b/perl-install/common.pm
index 199f2320a..41ddbf98e 100644
--- a/perl-install/common.pm
+++ b/perl-install/common.pm
@@ -18,10 +18,10 @@ use vars qw(@ISA %EXPORT_TAGS @EXPORT_OK $printable_chars $sizeof_int $bitof_int
 #-#####################################################################################
 #- Globals
 #-#####################################################################################
-$printable_chars = "\x20-\x7E";     
-$sizeof_int      = psizeof("i");    
-$bitof_int       = $sizeof_int * 8; 
-$SECTORSIZE      = 512;             
+$printable_chars = "\x20-\x7E";
+$sizeof_int      = psizeof("i");
+$bitof_int       = $sizeof_int * 8;
+$SECTORSIZE      = 512;
 
 #-#####################################################################################
 #- Functions
@@ -230,7 +230,7 @@ sub warp_text($;$) {
     my ($text, $width) = @_;
     $width ||= 80;
 
-    my @l; 
+    my @l;
     foreach (split "\n", $text) {
 	my $t = '';
 	foreach (split /\s+/, $_) {
@@ -251,7 +251,7 @@ sub getVarsFromSh($) {
     local *F;
     open F, $_[0] or return;
     foreach (<F>) {
-	my ($v, $val, $val2) = 
+	my ($v, $val, $val2) =
 	  /^\s*			# leading space
 	   (\w+) =		# variable
 	   (
@@ -280,7 +280,7 @@ sub best_match {
     my ($str, @lis) = @_;
     my @words = split /\W+/, $str;
     my ($max, $res) = 0;
-    
+
     foreach (@lis) {
 	my $count = 0;
 	foreach my $i (@words) {
@@ -298,7 +298,7 @@ sub bestMatchSentence {
     my @s = split /\W+/, shift;
     foreach (@_) {
 	my $count = 0;
-	foreach my $e (@s) { 
+	foreach my $e (@s) {
 	    $count++ if /$e/i;
 	}
 	$best = $count, $bestSentence = $_ if $count > $best;
@@ -314,7 +314,7 @@ sub bestMatchSentence2 {
     my @s = split /\W+/, shift;
     foreach (@_) {
 	my $count = 0;
-	foreach my $e (@s) { 
+	foreach my $e (@s) {
 	    $count+= length ($e) if /$e/i;
 	}
 	$best = $count, $bestSentence = $_ if $count > $best;
@@ -326,4 +326,4 @@ sub bestMatchSentence2 {
 #-######################################################################################
 #- Wonderful perl :(
 #-######################################################################################
-1; # 
+1; #
-- 
cgit v1.2.1