Import Upstream version 0.0.23

[htag.git] / plugins / 06marknlard

diff --git a/plugins/06marknlard b/plugins/06marknlard
index a6c9c8259fb15abaf1bd2ba4f4b1e2f6d9a1cc68..291465cd0d810aa7b088e04c29ee1ae23946149d 100644 (file)
--- 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;
                }