version 1.23, 2008/06/14 16:34:54
|
version 1.24, 2008/08/21 11:11:31
|
Line 64 sub blacklisted {
|
Line 64 sub blacklisted {
|
'file','batch','stringout','translat','stout', |
'file','batch','stringout','translat','stout', |
'stin','block','system','concat','read','inchar', |
'stin','block','system','concat','read','inchar', |
'outchar','ttyoff','with_stdout','writefile', |
'outchar','ttyoff','with_stdout','writefile', |
'reset') { |
'reset','quit','\? ','\?','display2d','%i','%o','describe') { |
if ($cmd=~/$forbidden/s) { return 1; } |
if ($cmd=~/$forbidden/s) { return 1; } |
} |
} |
return 0; |
return 0; |