diff options
Diffstat (limited to 'lib/Text/Tabs.pm')
| -rw-r--r-- | lib/Text/Tabs.pm | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/lib/Text/Tabs.pm b/lib/Text/Tabs.pm index 4024d7b685..acd7afb7d6 100644 --- a/lib/Text/Tabs.pm +++ b/lib/Text/Tabs.pm @@ -7,7 +7,7 @@ require Exporter; @EXPORT = qw(expand unexpand $tabstop); use vars qw($VERSION $tabstop $debug); -$VERSION = 96.051501; +$VERSION = 96.121201; use strict; @@ -27,7 +27,7 @@ sub expand /sex; } return @l if wantarray; - return @l[0]; + return $l[0]; } sub unexpand @@ -60,7 +60,7 @@ sub unexpand $x = join("\n", @lines); } return @l if wantarray; - return @l[0]; + return $l[0]; } 1; @@ -69,15 +69,15 @@ __END__ =head1 NAME -Text::Tabs - expand and unexpand tabs per the unix expand(1) and unexpand(1) +Text::Tabs -- expand and unexpand tabs per the unix expand(1) and unexpand(1) =head1 SYNOPSIS - use Text::Tabs; +use Text::Tabs; - $tabstop = 4; - @lines_without_tabs = expand(@lines_with_tabs); - @lines_with_tabs = unexpand(@lines_without_tabs); +$tabstop = 4; +@lines_without_tabs = expand(@lines_with_tabs); +@lines_with_tabs = unexpand(@lines_without_tabs); =head1 DESCRIPTION @@ -94,4 +94,4 @@ entire document in one string. Instead feed it an array of lines. =head1 AUTHOR -David Muir Sharnoff E<lt>F<muir@idiom.com>E<gt> +David Muir Sharnoff <muir@idiom.com> |