Remove file check
This commit is contained in:
parent
e3658e060c
commit
a8bbb6f44e
@ -1,6 +1,6 @@
|
|||||||
# Form implementation generated from reading ui file 'QmuSRSim.ui'
|
# Form implementation generated from reading ui file 'QmuSRSim.ui'
|
||||||
#
|
#
|
||||||
# Created: Fri Apr 27 10:07:20 2012
|
# Created: Fri Apr 27 10:09:39 2012
|
||||||
# by: The PerlQt User Interface Compiler (puic)
|
# by: The PerlQt User Interface Compiler (puic)
|
||||||
#
|
#
|
||||||
# WARNING! All changes made in this file will be lost!
|
# WARNING! All changes made in this file will be lost!
|
||||||
@ -18927,11 +18927,11 @@ sub CheckSim
|
|||||||
$answtext=$answtext."ROOTSYS Path is wrong!\n";
|
$answtext=$answtext."ROOTSYS Path is wrong!\n";
|
||||||
}
|
}
|
||||||
|
|
||||||
my $NewFile="$musrSim/run/$MAC.mac";
|
# my $NewFile="$musrSim/run/$MAC.mac";
|
||||||
unless (-e $NewFile) {
|
# unless (-e $NewFile) {
|
||||||
$answ=0;
|
# $answ=0;
|
||||||
$answtext=}answtext."Macro file $NewFile exists!\n";
|
# $answtext=}answtext."Macro file $NewFile exists!\n";
|
||||||
}
|
# }
|
||||||
|
|
||||||
if ($answ==0) {
|
if ($answ==0) {
|
||||||
print STDERR $answtext;
|
print STDERR $answtext;
|
||||||
|
Loading…
x
Reference in New Issue
Block a user