Re: CMD prompt error


No such thing as a small change
	PerlMonks

Re: CMD prompt error

by poj (Abbot)

on Jan 23, 2012 at 21:03 UTC ( [id://949524]=note: print w/replies, xml )

Need Help??

in reply to CMD prompt error

Try replacing this code

if(system(-r $createdir))
{}
else
{
$mw->messageBox (-default => 'Ok',-title => 'Alert!',-message => "Crea
+te C:/temp directory first to run the program", -type => 'Ok',);
exit;
}
[download]

with this

unless ( -d $createdir ){
  $mw->messageBox (
  -default => 'Ok',
  -title   => 'Alert!',
  -message => "Create $createdir directory first to run the program", 
  -type    => 'Ok',);
  exit;
}
[download]

poj