Skip to content

Commit

Permalink
Detabify
Browse files Browse the repository at this point in the history
For #149
  • Loading branch information
schwern committed Nov 25, 2011
1 parent b571145 commit 0c2d470
Showing 1 changed file with 4 additions and 4 deletions.
8 changes: 4 additions & 4 deletions lib/perl5i/2/ARRAY.pm
Expand Up @@ -57,11 +57,11 @@ method grep($filter) {

method popn($times) {
Carp::croak("popn() takes a single argument, the number of elements to pop")
unless defined $times;
unless defined $times;
Carp::croak("popn() takes a numerical argument")
unless $times->is_integer;
unless $times->is_integer;
Carp::croak("popn() does not take negative arguments")
if $times < 0;
if $times < 0;

# splice() will choke if you walk off the array, so rein it in
$times = scalar(@$self) if ($times > scalar(@$self));
Expand All @@ -74,7 +74,7 @@ method shiftn($times) {
Carp::croak("shiftn() takes a single argument, the number of elements to pop")
unless defined $times;
Carp::croak("shiftn() takes a numerical argument")
unless $times->is_integer;
unless $times->is_integer;
Carp::croak("shiftn() does not take negative arguments")
if $times < 0;

Expand Down

0 comments on commit 0c2d470

Please sign in to comment.