#!/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
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;
}