Mercurial > pub > Impl

view _test/any.pl @ 25:9dd67fa91ee3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
small fix in the dom schema works under text schema
author Sergey
date Tue, 13 Oct 2009 17:51:25 +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()};