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.",
},
_______________________________________________
pld-cvs-commit mailing list
pld-cvs-commit@lists.pld-linux.org
http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit
