branch | RCL_3 |
changeset 16 | 22bdd8a90cc4 |
parent 2 | 99082257a271 |
13:7416fe50a180 | 16:22bdd8a90cc4 |
---|---|
20 @ISA=qw(Exporter); |
20 @ISA=qw(Exporter); |
21 @EXPORT=qw( |
21 @EXPORT=qw( |
22 OutSetLength OutSetPostWrap OutFormat Output |
22 OutSetLength OutSetPostWrap OutFormat Output |
23 OutText |
23 OutText |
24 ); |
24 ); |
25 |
|
26 use strict; |
|
27 |
25 |
28 |
26 |
29 my $Len=80; |
27 my $Len=80; |
30 my $PreWrap="\\"; |
28 my $PreWrap="\\"; |
31 my $PreWrapLen=length($PreWrap); |
29 my $PreWrapLen=length($PreWrap); |