Bugs item #565811, was opened at 2002-06-07 13:25
You can respond by visiting:
http://sourceforge.net/tracker/?func=detail&atid=390117&aid=565811&group_id=27350
>Category: Lang support
>Group: v0.9.1
Status: Open
Resolution: None
Priority: 5
Submitted By: Gregor Hartmann (grex)
Assigned to: Nobody/Anonymous (nobody)
Summary: unreadable files can terminate genxref
Initial Comment:
When an unreadable file is encountered whos language cannot be determined by the filename the file is
opened to see if it is a script.
The file is opened using FileHandle to read the first line.
however if new FileHandle fails, this is not checked and getline terminates the program with following
error:
Can't call method "getline" on an undefined value at lib/LXR/Lang.pm line 47.
I changed some lines in lib/LXR/Lang.pl to fix this. The files are then treated as if no language was found.
I Added two lines of context above and below starting at line 41 in lib/LXR/Lang.pl
if (!defined $lang) {
# Try to see if it's a script
my $shebang;
my $fh = $files->getfilehandle($pathname, $release);
if ( 1 )
{
$fh->getline =~ /^\#!\s*(\S+)/s;
$shebang = $1;
}
else
{
$shebang = "";
}
my %filetype = %{$config->filetype};
my %inter = %{$config->interpreters};
----------------------------------------------------------------------
You can respond by visiting:
http://sourceforge.net/tracker/?func=detail&atid=390117&aid=565811&group_id=27350
|
