X-Git-Url: https://the.earth.li/gitweb/?a=blobdiff_plain;f=plugins%2F06marknlard;fp=plugins%2F06marknlard;h=291465cd0d810aa7b088e04c29ee1ae23946149d;hb=49c39d47502a7485e7e63f7cbea8325852d25967;hp=a6c9c8259fb15abaf1bd2ba4f4b1e2f6d9a1cc68;hpb=05869f1bf3fb39b81155235901cae1ba99b9b359;p=htag.git diff --git a/plugins/06marknlard b/plugins/06marknlard index a6c9c82..291465c 100644 --- a/plugins/06marknlard +++ b/plugins/06marknlard @@ -1,6 +1,6 @@ #!/usr/bin/perl -w -# Copyright (C) 2000-2001 Simon Huggins +# Copyright (C) 2000-2003 Simon Huggins # marknlard outputs Mark 'n Lard style attributions # This program is free software; you can redistribute it and/or modify it @@ -44,7 +44,10 @@ foreach my $f (@found) { while ($recursion < 30) { $recursion++; my $attr = pickone(); - if (length $attr <= $f[1]) { + if ($f[1] eq "*") { + print OUT $attr,"\n"; + $recursion = 255; + } elsif (length $attr <= $f[1]) { print OUT chunksizealign($attr, $f[1], $f[2]),"\n"; $recursion = 255; }