doc/pspdf.pl: fix spacing

Fix whitespace alignment, no functional change.

Signed-off-by: H. Peter Anvin <hpa@zytor.com>

1 files changed, 41 insertions, 39 deletions

diff --git a/doc/pspdf.pl b/doc/pspdf.pl
index ae095576..23880668 100755
--- a/doc/pspdf.pl
+++ b/doc/pspdf.pl
@@ -9,9 +9,9 @@ use File::Spec;
 my $compress = 1;
 
 my $win32_ok = eval {
-	require Win32::TieRegistry;
-	Win32::TieRegistry->import();
-	1;
+    require Win32::TieRegistry;
+    Win32::TieRegistry->import();
+    1;
 };
 
 while ($ARGV[0] =~ /^-(.*)$/) {
@@ -19,55 +19,57 @@ while ($ARGV[0] =~ /^-(.*)$/) {
     shift @ARGV;
 
     if ($opt eq '-nocompress') {
-	$compress = 0;
+        $compress = 0;
     }
 }
 
 my ($in, $out) = @ARGV;
 
 if (!defined($out)) {
-	die "Usage: $0 [-nocompress] infile ou{ tfile\n";
+    die "Usage: $0 [-nocompress] infile ou{ tfile\n";
 }
 
 # If Win32, help GhostScript out with some defaults
 sub win32_gs_help() {
-	return if (!$win32_ok);
-
-	use Sort::Versions;
-	use sort 'stable';
-
-	my $Reg = $::Registry->Open('', {Access => 'KEY_READ', Delimiter => '/'});
-	my $dir;
-	my @gs;
-
-	foreach my $k1 ('HKEY_CURRENT_USER/Software/', 'HKEY_LOCAL_MACHINE/SOFTWARE/') {
-		foreach my $k2 ('Artifex/', '') {
-			foreach my $k3 ('GPL Ghostscript/', 'AFPL Ghostscript/', 'Ghostscript/') {
-				my $r = $Reg->{$k1.$k2.$k3};
-				if (ref($r) eq 'Win32::TieRegistry') {
-					foreach my $k (keys(%$r)) {
+    return if (!$win32_ok);
+
+    use Sort::Versions;
+    use sort 'stable';
+
+    my $Reg = $::Registry->Open('', {Access => 'KEY_READ', Delimiter => '/'});
+    my $dir;
+    my @gs;
+
+    foreach my $k1 ('HKEY_CURRENT_USER/Software/',
+                    'HKEY_LOCAL_MACHINE/SOFTWARE/') {
+        foreach my $k2 ('Artifex/', '') {
+            foreach my $k3 ('GPL Ghostscript/', 'AFPL Ghostscript/',
+                            'Ghostscript/') {
+                my $r = $Reg->{$k1.$k2.$k3};
+                if (ref($r) eq 'Win32::TieRegistry') {
+                    foreach my $k (keys(%$r)) {
                         my $rk = $r->{$k};
                         if (ref($rk) eq 'Win32::TieRegistry' &&
                             defined($rk->{'/GS_LIB'})) {
                             push @gs, $rk;
                         }
-					}
-				}
-			}
-		}
-	}
-
-	@gs = sort {
-		my($av) = $a->Path =~ m:^.*/([^/]+)/$:;
-		my($bv) = $b->Path =~ m:^.*/([^/]+)/$:;
-		versioncmp($av, $bv);
-	} @gs;
-
-	return unless (scalar(@gs));
-
-	$ENV{'PATH'} .= ';' . $gs[0]->{'/GS_LIB'};
-	$ENV{'GS_FONTPATH'} .= (defined($ENV{'GS_FONTPATH'}) ? ';' : '')
-		. $ENV{'windir'}.'\\fonts';
+                    }
+                }
+            }
+        }
+    }
+
+    @gs = sort {
+        my($av) = $a->Path =~ m:^.*/([^/]+)/$:;
+        my($bv) = $b->Path =~ m:^.*/([^/]+)/$:;
+        versioncmp($av, $bv);
+    } @gs;
+
+    return unless (scalar(@gs));
+
+    $ENV{'PATH'} .= ';' . $gs[0]->{'/GS_LIB'};
+    $ENV{'GS_FONTPATH'} .= (defined($ENV{'GS_FONTPATH'}) ? ';' : '')
+        . $ENV{'windir'}.'\\fonts';
 }
 
 # Remove output file
@@ -83,8 +85,8 @@ exit 0 if ( !$r && -f $out );
 win32_gs_help();
 my $o = $win32_ok ? '#' : '-';
 my $r = system('ps2pdf', "-dOptimize${o}true", "-dEmbedAllFonts${o}true",
-	       "-dCompressPages${o}" . ($compress ? 'true' : 'false'),
-	       "-dUseFlateCompression${o}true", $in, $out);
+               "-dCompressPages${o}" . ($compress ? 'true' : 'false'),
+               "-dUseFlateCompression${o}true", $in, $out);
 exit 0 if ( !$r && -f $out );
 
 # 3. pstopdf (BSD/MacOS X utility)