--- a/Lib/Deployment/Batch/CopyFile.pm	Fri Feb 26 01:43:42 2010 +0300
+++ b/Lib/Deployment/Batch/CopyFile.pm	Fri Feb 26 10:49:21 2010 +0300
@@ -1,45 +1,45 @@
-use strict;
-package Deployment::Batch;
-our %Dirs;
-package Deployment::Batch::CopyFile;
-use base qw(Deployment::Batch::Generic);
-use File::Copy;
-require URI::file;
-use Common;
-
-BEGIN {
-    DeclareProperty Src => ACCESS_READ;
-    DeclareProperty Dst => ACCESS_READ;
-}
-
-sub CTOR {
-    my ($this,$src,$dest,$Dir) = @_;
-
-    $src or die "Source file name is required";
-    $dest or die "Destination file name is reqiured";
-                       
-    my $uriSrc = URI::file->new($src)->abs($this->Context->{PackageDir});
-
-    my $uriDest = URI::file->new($dest);
-    
-    $uriDest = $uriDest->abs(
-        ($Dir and $Dirs{$Dir}) ?
-            $Dirs{$Dir} :
-            $this->Context->{PackageDir}
-    );
-
-    $this->{$Src} = $uriSrc->file;
-    $this->{$Dst} = $uriDest->file;
-}
-
-sub Run {
-    my ($this) = @_;
-
-    $this->Log("Copy '$this->{$Src}' to '$this->{$Dst}'");
-
-    Deployment::Batch->Backup( File => $this->{$Dst} );
-    
-    copy($this->{$Src},$this->{$Dst}) or die "copy failed: $!";
-}
-
-1;
+use strict;
+package Deployment::Batch;
+our %Dirs;
+package Deployment::Batch::CopyFile;
+use base qw(Deployment::Batch::Generic);
+use File::Copy;
+require URI::file;
+use Common;
+
+BEGIN {
+    DeclareProperty Src => ACCESS_READ;
+    DeclareProperty Dst => ACCESS_READ;
+}
+
+sub CTOR {
+    my ($this,$src,$dest,$Dir) = @_;
+
+    $src or die "Source file name is required";
+    $dest or die "Destination file name is reqiured";
+                       
+    my $uriSrc = URI::file->new($src)->abs($this->Context->{PackageDir});
+
+    my $uriDest = URI::file->new($dest);
+    
+    $uriDest = $uriDest->abs(
+        ($Dir and $Dirs{$Dir}) ?
+            $Dirs{$Dir} :
+            $this->Context->{PackageDir}
+    );
+
+    $this->{$Src} = $uriSrc->file;
+    $this->{$Dst} = $uriDest->file;
+}
+
+sub Run {
+    my ($this) = @_;
+
+    $this->Log("Copy '$this->{$Src}' to '$this->{$Dst}'");
+
+    Deployment::Batch->Backup( File => $this->{$Dst} );
+    
+    copy($this->{$Src},$this->{$Dst}) or die "copy failed: $!";
+}
+
+1;