Lines Matching refs:error
12 sub error
14 print "\nuversion error: $@\n";
38 open(F, "$path/tomato_version") || error("opening tomato_version: $!");
41 error("Invalid version: '$_'");
47 open(F, ">$path/tomato_version.~") || error("creating temp file: $!");
50 rename("$path/tomato_version.~", "$path/tomato_version") || error("renaming: $!");
84 open(F, ">$path/tomato_version.h~") || error("creating temp file: $!");
97 rename("$path/tomato_version.h~", "$path/tomato_version.h") || error("renaming: $!");
99 open(F, ">$path/tomato_version.~") || error("creating temp file: $!");
102 rename("$path/tomato_version.~", "$path/tomato_version") || error("renaming: $!");