$OpenBSD: patch-texk_tetex_thumbpdf,v 1.1 2001/10/24 20:11:11 jakob Exp $

--- texk/tetex/thumbpdf.orig	Wed Oct 24 22:01:18 2001
+++ texk/tetex/thumbpdf	Wed Oct 24 22:01:38 2001
@@ -20,7 +20,7 @@
 # for installation purposes.
 #
 my $file        = "thumbpdf.pl";
-my $program     = uc($file =~ /^(\w+)/, $1);
+my $program     = (($file =~ /^(\w+)/), uc($1));
 my $version     = "1.11";
 my $date        = "2000/01/19";
 my $author      = "Heiko Oberdiek";
