| Revision: | 1.1.1.1 (vendor branch) |
| Committed: | Tue Jan 10 13:06:55 2006 UTC (19 years, 3 months ago) by elmer |
| Content type: | application/x-perl |
| Branch: | one, MAIN |
| CVS Tags: | BOSS_4_3_10, BOSS_4_3_9, BOSS_4_3_8, BOSS_4_3_8-ui3_1, BOSS_4_3_7-ui3_1, BOSS_4_3_7, BOSS_4_3_6, BOSS_4_3_4a, BOSS_4_3_5, BOSS_4_3_4, BOSS_4_3_3, BOSS_4_3_2, BOSS_4_3_1b, BOSS_4_3_1a, BOSS_4_3_1, BOSS_4_3_0, BOSS_4_2_4, BOSS_4_2_3, BOSS_4_2_2, BOSS_4_2_1, BOSS_4_2_0, BOSS_4_1_10, BOSS_4_1_9, BOSS_4_1_9-test, BOSS_4_1_8, BOSS_4_1_7, BOSS_4_1_6, BOSS_4_1_5, BOSS_4_1_4, BOSS_4_1_3, BOSS_4_1_2, BOSS_4_1_1, BOSS_4_1_0, BOSS_4_0_11, BOSS_4_0_10, BOSS_4_0_9, BOSS_4_0_8, BOSS_4_0_7, BOSS_4_0_6, BOSS_4_0_5, BOSS_4_0_4, BOSS_4_0_3, BOSS_4_0_2, BOSS_4_0_1, BOSS_4_0_0, BOSS_v4_0_0-pre2, BOSS_v4_0_0-pre1, two, HEAD |
| Branch point for: | BOSS_4_3-ui3_0, BOSS_4_3_1c |
| Changes since 1.1: | +0 -0 lines |
| Log Message: | test import |
| # | Content |
|---|---|
| 1 | #! /usr/bin/perl |
| 2 | |
| 3 | $sec = $ARGV[0]; |
| 4 | print "waiting $sec/10 seconds\n"; |
| 5 | |
| 6 | open (LOG, ">> test.pl.log") || {print STDERR "unable to write to $logFile. Logging disabled\n"}; |
| 7 | |
| 8 | $| = 1; |
| 9 | $i = 0; |
| 10 | while ( $i < $sec ) { |
| 11 | select (undef, undef, undef, 0.1); |
| 12 | $i++; |
| 13 | print "counter $i\n"; |
| 14 | print LOG "counter $i\n"; |
| 15 | } |
| 16 | print "done\n"; |
| 17 | |
| 18 |