Re: dh_installxfonts (Re: Installing an X fonts ..)

[Changwoo Ryu <cwryu@debian.org>]

Branden Robinson <branden@ecn.purdue.edu> writes:

> Changwoo, this looks good as far as I can tell but it would be a good idea
> to get Joey Hess's input.

Of course it would.  I will submit a wishlist to the BTS (with
X-Debian-CC to debian-x@lists ?).

BTW there was a bug in the perl script.  $#fontdirs was not a number
of items...

--- dh_installxfonts~	Sun Oct  3 18:08:49 1999
+++ dh_installxfonts	Mon Oct  4 07:07:26 1999
@@ -11,25 +11,24 @@
 
     opendir DIR, "$TMP/usr/X11R6/lib/X11/fonts/" || next;
-    @fontdirs = readdir DIR;
+    @fontdirs = grep !/^\./, (readdir DIR);
     closedir DIR;
 
-    next if ($#fontdirs == 0);
+    next if ($#fontdirs < 0);
 
     undef $fontdirs_str;
     undef $use_alias;
     undef $use_scale;
 
     foreach $f (@fontdirs) {
-	unless ($f =~ /^\./) {
-	    $fontdirs_str .= " " if $fontdirs_str;
-	    $fontdirs_str .= $f;
-
-	    if (-f "$TMP/etc/X11/fonts/$f/$PACKAGE.alias") {
-		$use_alias = 1;
-	    }
-	    if (-f "$TMP/etc/X11/fonts/$f/$PACKAGE.scale") {
-		$use_scale = 1;
-	    }
+	$fontdirs_str .= " " if $fontdirs_str;
+	$fontdirs_str .= $f;
+
+	if (-f "$TMP/etc/X11/fonts/$f/$PACKAGE.alias") {
+	    $use_alias = 1;
+	}
+	if (-f "$TMP/etc/X11/fonts/$f/$PACKAGE.scale") {
+	    $use_scale = 1;
 	}
     }
 


-- 
Changwoo RYU