Mercurial > pub > Impl

view _test/any.pl @ 22:da5bc24b3d3c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
wmi tests
author Sergey
date Wed, 30 Sep 2009 17:41:32 +0400
parents 818c74b038ae
children 1828103371d0
line wrap: on
line source

#!/usr/bin/perl -w
use strict;

my @data = (1,2,3,4);

sub func {
    return \@data;
}

print "$_\n" and $data[3]=0 foreach @{func()};