Parent Directory
| 
Revision Log
| 
Patch
| revision 1.2 by dpavlin, Wed Aug 6 00:53:27 2003 UTC | revision 1.4 by dpavlin, Sun Aug 10 13:52:29 2003 UTC | |
|---|---|---|
| # | Line 1 | Line 1 |
| 1 | #!/usr/bin/perl -w | #!/usr/bin/perl -w |
| 2 | ||
| 3 | # original version by Nélio Alves Pereira Filho | |
| 4 | # modification by Dobrica Pavlinusic | |
| 5 | ||
| 6 | use strict; | use strict; |
| 7 | use Pg; | use Pg; |
| 8 | use Getopt::Long; | use Getopt::Long; |
| # | Line 49 for (my $i=0; $i < $numprocs; $i++) { | Line 52 for (my $i=0; $i < $numprocs; $i++) { |
| 52 | my $pid = fork(); | my $pid = fork(); |
| 53 | if (! defined($pid)) { | if (! defined($pid)) { |
| 54 | print "Can't fork...\n"; | print "Can't fork...\n"; |
| 55 | exit; | |
| 56 | } elsif ($pid == 0) { | } elsif ($pid == 0) { |
| 57 | doInserts($i+1); | doInserts($i+1); |
| 58 | exit; | exit; |
| 59 | } elsif ($pid != undef) { | } elsif ($pid) { |
| 60 | push @pids, $pid; | push @pids, $pid; |
| 61 | } | } |
| 62 | } | } |
|
||||||||
| ViewVC Help | |
| Powered by ViewVC 1.1.26 |