Add printout of where error occured when printing to error log in 'im_stop'

sub mysqld_arguments ($$$$$);

sub stop_all_servers ();

sub im_start ($$);

sub im_stop ($);

sub im_stop ($$);

sub run_mysqltest ($);

sub usage ($);

  if ( ! $glob_use_running_server and $tinfo->{'component_id'} eq 'im' and

       $instance_manager->{'pid'} )

  {

    im_stop($instance_manager);

    im_stop($instance_manager, $tinfo->{'name'});

  }

}

  if ( $instance_manager->{'pid'} )

  {

    print  "Shutting-down Instance Manager\n";

    im_stop($instance_manager);

    im_stop($instance_manager, "stop_all_servers");

  }

  my %admin_pids; # hash of admin processes that requests shutdown

}

sub im_stop($) {

sub im_stop($$) {

  my $instance_manager = shift;

  my $where = shift;

  # Obtain mysqld-process pids before we start stopping IM (it can delete pid

  # files).

    my $ts= localtime();

    print ERRLOG

      "Warning: [$ts] Instance Manager did not shutdown gracefully.\n";

      "[$where] Warning: [$ts] Instance Manager did not shutdown gracefully.\n";

    close ERRLOG;

  }