diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-10-17 09:19:24 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-10-17 09:19:24 +0000 |
| commit | e87397262fea23fa89ba85aa7fe9c848306450ab (patch) | |
| tree | 36f49903458f2078d915b45c04f1661e06a6ed1a /lib | |
| parent | 0253cb4104ff1121338d661bd3f918b6225bd25b (diff) | |
| download | perl-e87397262fea23fa89ba85aa7fe9c848306450ab.tar.gz | |
make installperl ignore RCS files (from Michael G Schwern
<schwern@pobox.com>)
p4raw-id: //depot/perl@4398
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Text/Tabs.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/Text/Tabs.pm b/lib/Text/Tabs.pm index acd7afb7d6..c431019908 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.121201; +$VERSION = 98.112801; use strict; @@ -18,7 +18,7 @@ BEGIN { sub expand { - my @l = @_; + my (@l) = @_; for $_ (@l) { 1 while s/(^|\n)([^\t\n]*)(\t+)/ $1. $2 . (" " x @@ -32,7 +32,7 @@ sub expand sub unexpand { - my @l = @_; + my (@l) = @_; my @e; my $x; my $line; |