Update of /cvsroot/lxr/lxr/lib/LXR
In directory usw-pr-cvs1:/tmp/cvs-serv16324/lib/LXR
Modified Files:
Lang.pm
Log Message:
Fix problem with Lang.pm and non-existent files by checking the return
from getfilehandle.
Index: Lang.pm
===================================================================
RCS file: /cvsroot/lxr/lxr/lib/LXR/Lang.pm,v
retrieving revision 1.27
retrieving revision 1.28
diff -u -d -r1.27 -r1.28
--- Lang.pm 2002/01/23 14:59:21 1.27
+++ Lang.pm 2002/02/05 10:34:43 1.28
@@ -41,6 +41,7 @@
if (!defined $lang) {
# Try to see if it's a script
my $fh = $files->getfilehandle($pathname, $release);
+ return undef if !defined $fh;
$fh->getline =~ /^\#!\s*(\S+)/s;
my $shebang = $1;
|