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