*** Festival.pm 2004-01-30 10:57:04.000000000 -0800
--- Festival.pm 2004-01-30 10:57:33.000000000 -0800
***************
*** 72,78 ****
  sub _start {
      $_[KERNEL]->alias_set($_[HEAP]{alias})
        if defined $_[HEAP]{alias};
!     my $fc = new Festival::Client::Async
        or die "can't connect to festival server: $!";
   
      foreach my $expr (@{$_[HEAP]{opts}{startup_hook}}) {
--- 72,79 ----
  sub _start {
      $_[KERNEL]->alias_set($_[HEAP]{alias})
        if defined $_[HEAP]{alias};
!    # my $fc = new Festival::Client::Async
!     my $fc = Festival::Client::Async->new($_[HEAP]{opts}{host},$_[HEAP]{opts}{port})
        or die "can't connect to festival server: $!";
   
      foreach my $expr (@{$_[HEAP]{opts}{startup_hook}}) {
***************
*** 108,114 ****
      @{$_[HEAP]{evalq}} = ();
      $_[HEAP]{cur} = 0;
   
!     my $fc = new Festival::Client::Async
        or die "can't connect to festival server: $!";
      foreach my $expr (@{$_[HEAP]{opts}{startup_hook}}) {
        $fc->server_eval_sync($expr);
--- 109,116 ----
      @{$_[HEAP]{evalq}} = ();
      $_[HEAP]{cur} = 0;
   
!    # my $fc = new Festival::Client::Async
!     my $fc = Festival::Client::Async->new($_[HEAP]{opts}{host},$_[HEAP]{opts}{port})
        or die "can't connect to festival server: $!";
      foreach my $expr (@{$_[HEAP]{opts}{startup_hook}}) {
        $fc->server_eval_sync($expr);