Perlfect Solutions
 

[Perlfect-search] Errr indexin: << HERE $/ at tools.pl line 87.

Daniel Naber perlfect-search@perlfect.com
Thu, 18 Sep 2003 20:12:15 +0200
On Thursday 18 September 2003 03:37, pod wrote:

> Unmatched ) before HERE mark in regex m/^I:%20Integrales%20indefinidas)
> << HERE $/ at tools.pl line 87.

There's a get_suffix() function in tools.pl. Please try if it helps to 
replace that function with this code:

sub get_suffix {
  my $filename = shift;
  if( $filename =~ m/\?/ ) {
    $filename =~ s/\?.*$//;
  }
  my ($suffix) = ($filename =~ m/\.([^.]*)$/);
  return $suffix;
}

Regards
 Daniel

-- 
http://www.danielnaber.de