Parent Directory
| 
Revision Log
| 
Patch
| revision 182 by dpavlin, Sun Nov 8 12:55:53 2009 UTC | revision 183 by dpavlin, Sun Nov 8 13:03:54 2009 UTC | |
|---|---|---|
| # | Line 1 | Line 1 |
| 1 | #!/usr/bin/perl | #!/usr/bin/perl |
| 2 | ||
| 3 | package Sack::REPL; | |
| 4 | ||
| 5 | use warnings; | use warnings; |
| 6 | use strict; | use strict; |
| 7 | ||
| # | Line 28 while ( $retries < 10 && ! $sock ) { | Line 30 while ( $retries < 10 && ! $sock ) { |
| 30 | ||
| 31 | die $! unless $sock; | die $! unless $sock; |
| 32 | ||
| 33 | print STDERR "connected after $retries retries\n"; | print STDERR "\nconnected after $retries retries\n"; |
| 34 | ||
| 35 | Storable::fd_retrieve( $sock )->{ping} or die "no ping"; | Storable::fd_retrieve( $sock )->{ping} or die "no ping"; |
| 36 |
|
||||||||
| ViewVC Help | |
| Powered by ViewVC 1.1.26 |