root/branches/mcstas-1.x/safewrap.pl

Revision 2121, 290 bytes (checked in by pkwi, 4 years ago)

A hack for win32...

These edits allow us to upgrade perl on Win32, have been running successfully with
perl 5.10, which I have also found PGPLOT and PPD ppm's for.

( http://cpan.uwinnipeg.ca/PPMPackages/10xx/)

The hack is simple: On Win32 we avoid to use Tk::fileevent which is broken with newer
perls and simply let the OS handle backgrounding by means of the 'start' command...
It also gives Win32 users a 'feature': multiple simulations kan be spawned in the
background from the same mcgui...

  • Property svn:executable set to *
Line 
1#!/usr/bin/perl
2#
3# Simple method to provide 'Press any key to exit' when ending our
4# Win32 commands
5#
6
7use Config;
8
9if ($Config{'osname'} eq 'MSWin32') {
10    system(join(' ',@ARGV));
11    system('pause');
12    exit 1;
13} else {
14    die "This util is only meant for the Win32 platform\n";
15}
16
Note: See TracBrowser for help on using the browser.