X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=samples%2Ftry.pl;h=299672722a6147042816927837161206979809cb;hb=cbd0d5635c26b4203e32f543f4a3b323a6875b41;hp=68388c8e02b4d938dac434822a7c061bfb29cdcb;hpb=ddcc7c395d570f0ea20a8e9a242fcbfcc0e49522;p=perl%2Fmodules%2FIPC-MorseSignals.git

diff --git a/samples/try.pl b/samples/try.pl
index 68388c8..2996727 100755
--- a/samples/try.pl
+++ b/samples/try.pl
@@ -3,9 +3,9 @@
 use strict;
 use warnings;
 
-use POSIX qw/pause EXIT_SUCCESS EXIT_FAILURE/;
+use POSIX qw<pause EXIT_SUCCESS EXIT_FAILURE>;
 
-use lib qw{blib/lib};
+use lib qw<blib/lib>;
 
 use IPC::MorseSignals::Emitter;
 use IPC::MorseSignals::Receiver;
@@ -15,10 +15,10 @@ if (!defined $pid) {
  die "fork() failed : $!";
 } elsif ($pid == 0) {
  local %SIG;
- my $rcv = new IPC::MorseSignals::Receiver \%SIG, done => sub {
+ my $rcv = IPC::MorseSignals::Receiver->new(\%SIG, done => sub {
   print STDERR "I, the child, recieved this : $_[1]\n";
   exit EXIT_SUCCESS;
- };
+ });
  print STDERR "I'm $$ (the child), and I'm waiting for data...\n";
  pause while 1;
  exit EXIT_FAILURE;
@@ -26,7 +26,7 @@ if (!defined $pid) {
 
 print STDERR "I'm $$ (the parent), and I'm gonna send a message to my child $pid.\n";
 
-my $snd = new IPC::MorseSignals::Emitter speed => 1000;
+my $snd = IPC::MorseSignals::Emitter->new(speed => 1000);
 $snd->post("This message was sent with IPC::MorseSignals");
 $snd->send($pid);
 waitpid $pid, 0;