Parent Directory
| 
Revision Log
| 
Patch
| Revision 1327 | Revision 1328 | ||
|---|---|---|---|
| … | … | ||
| 977 | return $li[random(1,scalar(@li))-1]; | 977 | return $li[random(1,scalar(@li))-1]; |
| 978 | } | 978 | } |
| 979 | 979 | ||
| 980 | sub SRAND { # resets the main random generator -- use cautiously | 980 | sub SRAND { # resets the main random generator -- use cautiously |
| 981 | my $seed = shift; | 981 | my $seed = shift; |
| 982 | PG_random_generator -> srand($seed); | 982 | $PG_random_generator -> srand($seed); |
| 983 | } | 983 | } |
| 984 | 984 | ||
| 985 | # display macros | 985 | # display macros |
| 986 | 986 | ||
| 987 | =head2 Display Macros | 987 | =head2 Display Macros |
|
||||||||
| aubreyja at gmail dot com | ViewVC Help |
| Powered by ViewVC 1.0.9 |