Mercurial > pub > Impl
view _test/any.pl @ 31:d59526f6310e
Small fixes to Test framework (correct handlinf of the compilation errors in the test units)
Imported and refactored SQL DB schema from the old project
author | Sergey |
---|---|
date | Mon, 09 Nov 2009 01:39:16 +0300 |
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()};