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

[sparky]

Author: sparky
Date: Mon Oct 12 02:53:50 2009
New Revision: 10763

Modified:
   toys/rsget.pl/RSGet/FileList.pm
Log:
- in list lock use $(dir) and $(file) for substitution,
  because ${...} are used for env variables


Modified: toys/rsget.pl/RSGet/FileList.pm
==============================================================================
--- toys/rsget.pl/RSGet/FileList.pm	(original)
+++ toys/rsget.pl/RSGet/FileList.pm	Mon Oct 12 02:53:50 2009
@@ -9,7 +9,7 @@
 def_settings(
 	list_lock => {
 		desc => "If lock file exists, list file won't be updated.",
-		default => '${dir}/.${file}.swp',
+		default => '$(dir)/.$(file).swp',
 		allowed => qr/.+/,
 		user => 1,
 	},
@@ -63,8 +63,8 @@
 			$fn = $file;
 		}
 		$file_swp = setting( "list_lock" );
-		$file_swp =~ s/\${file}/$fn/g;
-		$file_swp =~ s/\${dir}/$dir/g;
+		$file_swp =~ s/\$\(file\)/$fn/g;
+		$file_swp =~ s/\$\(dir\)/$dir/g;
 		p "Using '$file_swp' as file lock\n";
 	}
 }