comment on

I do not have a solution, but I may have narrowed the problem for you. I ran your example (without updates) on Windows 7. The second instance does run, but does not return to the command window until I type a return. I suspect (without any real reason) that the problem is related to terminal I/O. I modified you program to avoid it (Removed both print statements). In order to verify that the second instance actually ran, I added an open statement to create a file. The resulting program runs to normal completion. The presence of the zero-length file in my current directory verifies that the second instance ran. I have no idea if this applies to windows 10 or if it will be of any help with the original Tk problem.

#!/usr/bin/env perl
use warnings;
use strict;

my $pathToMyself = $0;

local $, = "\n\t* ";
local $\ = $/;
#print "\t".$^X, $0, @ARGV;

restartMe() unless @ARGV;
open my $foo, '>', 'UniqFileName.___';  # Look for file in CWD

sub restartMe {
#    print "Restarting $pathToMyself...\n";
    #exec( $^X, $pathToMyself ) or die "couldn't exec $pathToMyself: $
+!";
    #system(1, $^X, $pathToMyself, "don't Restart", "final" ); exit;
    #system(1, "cmd.exe", "/c", $^X, $pathToMyself, "final"); exit;
    exec("cmd.exe", "/c", $^X, $pathToMyself, "final") or die  "couldn
+'t exec $pathToMyself: $!";
}
[download]

Bill

In reply to Re^2: Restarting a Perl script on Windows 10 by BillKSmith
in thread Restarting a Perl script on Windows 10 by petro4213

Are you posting in the right place? Check out Where do I post X? to know for sure.
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>
Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
Want more info? How to link or How to display code and escape characters are good places to start.


Welcome to the Monastery
	PerlMonks