]> the.earth.li Git - htag.git/blobdiff - plugins/07sesame
Import Debian changes 0.0.23-1
[htag.git] / plugins / 07sesame
index c532bf3342695f577268c893c09d71e3c9dc3ba7..f8ecfc9b22a7d1b7b462dd8ee5797fff494552ff 100644 (file)
@@ -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;
                }