In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/dc47dc11fc409a5105cbcafee6e5587b7e8633ed?hp=c20941f7d93435a213fd8cbe392fbc0d6984cb73>
- Log ----------------------------------------------------------------- commit dc47dc11fc409a5105cbcafee6e5587b7e8633ed Author: Gisle Aas <[email protected]> Date: Sun Apr 18 22:36:46 2010 +0200 Let the cmdVERSION usage message expand $0 It makes more sense than literally printing "usage: $0 ..." M Porting/cmpVERSION.pl commit f6e2320c520b8d610a864cd42aece1f0df2db895 Author: Gisle Aas <[email protected]> Date: Sun Apr 18 22:58:02 2010 +0200 Documentation tweaks to Text::Tabs M cpan/Text-Tabs/lib/Text/Tabs.pm ----------------------------------------------------------------------- Summary of changes: Porting/cmpVERSION.pl | 2 +- cpan/Text-Tabs/lib/Text/Tabs.pm | 14 ++++++++++++-- 2 files changed, 13 insertions(+), 3 deletions(-) diff --git a/Porting/cmpVERSION.pl b/Porting/cmpVERSION.pl index f118974..73a1357 100644 --- a/Porting/cmpVERSION.pl +++ b/Porting/cmpVERSION.pl @@ -24,7 +24,7 @@ use lib 'Porting'; use Maintainers; sub usage { -die <<'EOF'; +die <<"EOF"; usage: $0 [ -d -x ] source_dir1 source_dir2 EOF } diff --git a/cpan/Text-Tabs/lib/Text/Tabs.pm b/cpan/Text-Tabs/lib/Text/Tabs.pm index d3c06a0..49ec775 100644 --- a/cpan/Text-Tabs/lib/Text/Tabs.pm +++ b/cpan/Text-Tabs/lib/Text/Tabs.pm @@ -95,12 +95,16 @@ Text::Tabs -- expand and unexpand tabs per the unix expand(1) and unexpand(1) =head1 SYNOPSIS - use Text::Tabs; + use Text::Tabs qw(expand unexpand); - $tabstop = 4; # default = 8 @lines_without_tabs = expand(@lines_with_tabs); @lines_with_tabs = unexpand(@lines_without_tabs); + { + local $Text::Tabs::tabstop = 4; # default is 8 + @lines_without_tabs = expand(@lines_with_tabs); + } + =head1 DESCRIPTION Text::Tabs does about what the unix utilities expand(1) and unexpand(1) @@ -109,6 +113,12 @@ the appropriate number of spaces. Given a line with or without tabs in it, unexpand will add tabs when it can save bytes by doing so (just like C<unexpand -a>). Invisible compression with plain ASCII! +The global variable C<$Text::Tabs::tabstop> controls how many columns +positions apart each tabstop are. The default is 8. + +The functions expand(), unexpand() as well as the variable $tabstop +are exported by default. + =head1 EXAMPLE #!perl -- Perl5 Master Repository
