Imported from /home/lorry/working-area/delta_berkeleydb/db-6.1.23.tar.gz.HEADdb-6.1.23master

1 files changed, 11 insertions, 10 deletions

diff --git a/lang/perl/BerkeleyDB/scan.pl b/lang/perl/BerkeleyDB/scan.pl
index 3fce7a8d..ed0282b3 100644
--- a/lang/perl/BerkeleyDB/scan.pl
+++ b/lang/perl/BerkeleyDB/scan.pl
@@ -102,8 +102,8 @@ sub scan
     foreach $define (sort keys %seen_define)
     { 
         my $out = $filler ;
-	substr($out,0, length $define) = $define;
-	$result .= "\t$out => $seen_define{$define},\n" ;
+        substr($out,0, length $define) = $define;
+        $result .= "\t$out => $seen_define{$define},\n" ;
     }
     
     while ($file =~ /\btypedef\s+enum\s*{(.*?)}\s*(\w+)/gs )
@@ -120,8 +120,9 @@ sub scan
     
         my @tokens = map { s/\s*=.*// ; $_} split /\s*,\s*/, $enum ;
         my @new =  grep { ! $Enums{$_}++ } @tokens ;
-	if (@new)
-	{
+
+        if (@new)
+        {
             my $value ;
             if ($ignore)
               { $value = "IGNORE, # $version" }
@@ -130,14 +131,14 @@ sub scan
 
             $result .= "\n\t# enum $name\n";
             my $out = $filler ;
-	    foreach $name (@new)
-	    {
+            foreach $name (@new)
+            {
                 next if $ignore_exact_enum{$name} ;
-	        $out = $filler ;
-	        substr($out,0, length $name) = $name;
+                $out = $filler ;
+                substr($out,0, length $name) = $name;
                 $result .= "\t$out => $value\n" ;
-	    }
-	}
+            }
+        }
     }
 
     return $result ;