Import Upstream version 0.0.23

[htag.git] / HtagPlugin / HtagPlugin.pm

diff --git a/HtagPlugin/HtagPlugin.pm b/HtagPlugin/HtagPlugin.pm
index 4610874797fc63b0f0d96a1165b61d055f700528..58a4c6df5d6dd260835e20b6a6b7c91e65cd8bc6 100644 (file)
--- a/HtagPlugin/HtagPlugin.pm
+++ b/HtagPlugin/HtagPlugin.pm
@@ -1,5 +1,5 @@
 # HtagPlugin.pm
-# (C) Copyright 2000-2001 Simon Huggins <huggie@earth.li>
+# (C) Copyright 2000-2003 Simon Huggins <huggie@earth.li>
 
 # 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;