Commits

Cameron Simpson  committed 2789af0

bin/fold: defunct

  • Participants
  • Parent commits 5c80f52

Comments (0)

Files changed (2)

File bin/fold

-#!/usr/bin/perl
-
-$cmd=$0;
-$width=80;
-if ($#ARGV >= 0 && $ARGV[$[] =~ /^-(\d+)/)
-{ $width=$1; shift;
-  if ($width < 1)
-  { die "$cmd: width must be positive\n";
-  }
-}
-
-while (<>)
-{ chomp;
-  while (length > $width)
-  { print substr($_,$[,$width)."\n";
-    $_=substr($_,$[+$width);
-  }
-
-  if (length)
-  { print $_."\n";
-  }
-}

File defunct/fold

+#!/usr/bin/perl
+
+$cmd=$0;
+$width=80;
+if ($#ARGV >= 0 && $ARGV[$[] =~ /^-(\d+)/)
+{ $width=$1; shift;
+  if ($width < 1)
+  { die "$cmd: width must be positive\n";
+  }
+}
+
+while (<>)
+{ chomp;
+  while (length > $width)
+  { print substr($_,$[,$width)."\n";
+    $_=substr($_,$[+$width);
+  }
+
+  if (length)
+  { print $_."\n";
+  }
+}