1#!/usr/bin/perl -I.
2
3# From: Dan Jacobson <jidanni at jidanni dot org>
4
5use Text::Wrap qw(wrap $columns $huge $break);
6
7print "1..1\n";
8
9$huge='overflow';
10$Text::Wrap::columns=9;
11$break="(?<=[,.])";
12eval {
13$a=$a=wrap('','',
14"mmmm,n,ooo,ppp.qqqq.rrrrr,sssssssssssss,ttttttttt,uu,vvv wwwwwwwww####\n");
15};
16
17if ($@) {
18	my $e = $@;
19	$e =~ s/^/# /gm;
20	print $e;
21}
22print $@ ? "not ok 1\n" : "ok 1\n";
23
24
25