Group :: Development/Tcl
RPM: expect
Main Changelog Spec Patches Sources Download Gear Bugs and FR Repocop
Patch: expect-5.38-rh-rftp.patch
Download
Download
diff --git a/example/rftp b/example/rftp
index 7ba60ce..9e753ee 100755
--- a/example/rftp
+++ b/example/rftp
@@ -113,7 +113,7 @@ proc putdirectory {name} {
} timeout {
send_user "timed out on make remote directory $name\n"
return 0
- } -re "(257|550.*exists).*ftp>.*"
+ } -re "(257|553|550.*exists).*ftp>.*"
# 550 is returned if directory already exists
send "cd $name\r"