[Lxr-commits] CVS: lxr/lib/LXR Lang.pm,1.27,1.28

[Malcolm B. <mb...@us...>]

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;