X-Git-Url: https://the.earth.li/gitweb/?a=blobdiff_plain;f=plugins%2F07sesame;fp=plugins%2F07sesame;h=f8ecfc9b22a7d1b7b462dd8ee5797fff494552ff;hb=5fea61b142fcdeaaca2f6640f17e16a0d4e7b5c9;hp=c532bf3342695f577268c893c09d71e3c9dc3ba7;hpb=f96cd91ac242f68bc9c7b14b5e4ef45af00cfe60;p=htag.git diff --git a/plugins/07sesame b/plugins/07sesame index c532bf3..f8ecfc9 100644 --- a/plugins/07sesame +++ b/plugins/07sesame @@ -1,6 +1,6 @@ #!/usr/bin/perl -w -# Copyright (C) 2000-2001 Simon Huggins +# Copyright (C) 2000-2003 Simon Huggins # Sesame Street style brought to you "by the letter X and the number 1" # This program is free software; you can redistribute it and/or modify it @@ -36,7 +36,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; }