dh_installxfonts: Fix precidence problem that exposes a new warning message in perl...

[debhelper.git] / dh_installxfonts

diff --git a/dh_installxfonts b/dh_installxfonts
index b7921a2b5bd6b558d5d54d07dc56dec0182d5cb6..276f903c0240b4b17273f3687b9cd384c1270b69 100755 (executable)
--- a/dh_installxfonts
+++ b/dh_installxfonts
@@ -52,7 +52,7 @@ foreach my $package (@{$dh{DOPACKAGES}}) {
        # Find all font directories in the package build directory.
        my @fontdirs;
        foreach my $parentdir ("$tmp/usr/X11R6/lib/X11/fonts/", "$tmp/usr/share/fonts/X11/") {
-               opendir DIR, $parentdir || next;
+               opendir(DIR, $parentdir) || next;
                @fontdirs = grep { -d "$parentdir/$_" && !/^\./ } (readdir DIR);
                closedir DIR;
        }