[19868] in Athena Bugs
linux 9.0.15: /usr/athena/bin/thumbpdf
daemon@ATHENA.MIT.EDU (David M Collins)
Thu Oct 4 10:23:17 2001
Message-Id: <200110041423.KAA05780@ophelia.mit.edu>
To: bugs@MIT.EDU
Date: Thu, 04 Oct 2001 10:23:15 -0400
From: David M Collins <dmcollin@MIT.EDU>
System name: ophelia.mit.edu
Type and version: i686 9.0.15 (with mkserv)
Display type: XFree86 3.3.6a SVGA
Shell: /bin/athena/tcsh
Window manager: unknown
What were you trying to do?
Use the script
What's wrong:
Line: my $program = uc($file =~ /^(\w+)/, $1);
Should be: my $program = ($file =~ /^(\w+)/) ? uc($1) : "";
to work with the newer version of Perl
What should have happened:
[Please replace this line with your information.]
Please describe any relevant documentation references:
[Please replace this line with your information.]
