X-Git-Url: https://the.earth.li/gitweb/?a=blobdiff_plain;f=HtagPlugin%2FHtagPlugin.pm;fp=HtagPlugin%2FHtagPlugin.pm;h=58a4c6df5d6dd260835e20b6a6b7c91e65cd8bc6;hb=49c39d47502a7485e7e63f7cbea8325852d25967;hp=4610874797fc63b0f0d96a1165b61d055f700528;hpb=05869f1bf3fb39b81155235901cae1ba99b9b359;p=htag.git diff --git a/HtagPlugin/HtagPlugin.pm b/HtagPlugin/HtagPlugin.pm index 4610874..58a4c6d 100644 --- a/HtagPlugin/HtagPlugin.pm +++ b/HtagPlugin/HtagPlugin.pm @@ -1,5 +1,5 @@ # HtagPlugin.pm -# (C) Copyright 2000-2001 Simon Huggins +# (C) Copyright 2000-2003 Simon Huggins # This program is free software; you can redistribute it and/or modify it # under the terms of the GNU General Public License as published by the Free @@ -23,7 +23,7 @@ use Carp; # This version is the version of this module and not the version of htag. # Plugins using functions only in new modules should really check the # version. -$VERSION = '0.5'; +$VERSION = '0.6'; # Do magic exporter stuff per mjd sub import { @@ -117,7 +117,7 @@ sub scansigfile($) { } close(SIG); - while ($sig =~ s/(\@$char([1-9][0-9]*)([RC])?@)//) { + while ($sig =~ s/(\@$char(\*|(?:[1-9][0-9]*))([RC]?)\@)//) { my @array = ($1,$2); push @array, defined($3) ? $3 : "L"; push @found, \@array;