SVN: toys/rsget.pl/RSGet/Curl.pm

[sparky]

Author: sparky
Date: Mon Oct 12 02:21:47 2009
New Revision: 10760

Modified:
   toys/rsget.pl/RSGet/Curl.pm
Log:
- regular expresion backref (?2) isn't present in older perl (Ac); rewritten


Modified: toys/rsget.pl/RSGet/Curl.pm
==============================================================================
--- toys/rsget.pl/RSGet/Curl.pm	(original)
+++ toys/rsget.pl/RSGet/Curl.pm	Mon Oct 12 02:21:47 2009
@@ -16,10 +16,10 @@
 	backup => {
 		desc => "Make backups if downloaded file exists.",
 		default => "done,continue,scratch",
-		allowed => qr/(no|(done|continue|scratch)(?:,(?2))*)/,
+		allowed => qr/(no|(done|continue|scratch)(?:,(done|continue|scratch))*)/,
 		dynamic => {
 			'done,continue,scratch' => "Always.",
-			done => "Only if it would replace file in donedir.",
+			done => "Only if it would replace file in outdir.",
 			'continue,scratch' => "Only if it whould replace file in workdir.",
 			no => "Never.",
 		},