← Back to branch summary

~ubuntu-branches/ubuntu/trusty/libpod-simple-perl/trusty

« back to all changes in this revision

Viewing changes to t/stree.t

  • Committer: Bazaar Package Importer
  • Author(s): Jonathan Yu
  • Date: 2010-05-01 23:28:32 UTC
  • mfrom: (1.1.9 upstream)
  • Revision ID: james.westby@ubuntu.com-20100501232832-uhsd4zwmusp12z65
Tags: 3.14-1
* New upstream release
* Use new 3.0 (quilt) source format
* Standards-Version 3.8.4 (no changes)
* Add a patch to fix POD spelling errors
* Update copyright information to DEP5 format

Show diffs side-by-side

added added

removed removed

Lines of Context:
t/stree.t
125
125
  return '' if ref($_[0]) ne ref($_[1]); # unequal referentiality
126
126
  return $_[0] eq $_[1] unless ref $_[0];
127
127
  # So it's a ref:
128
 
  use UNIVERSAL;
129
128
  if(UNIVERSAL::isa($_[0], 'ARRAY')) {
130
129
    return '' unless @{$_[0]} == @{$_[1]};
131
130
    for(my $i = 0; $i < @{$_[0]}; $i++) {