X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDX%2FLib%2FFS%2FAction%2FRewriteFile.pm;fp=lib%2FDX%2FLib%2FFS%2FAction%2FRewriteFile.pm;h=b1b8a08858828e2e310e8a068a5b866467d3a228;hb=91d1f2390ba5142362b25713fa534cbba335d382;hp=625f2df4ee2ae866aa05ea75ba24063e1d83fd58;hpb=bf7d9637aa1c5a4093766ac6f458d09bfb094388;p=scpubgit%2FDKit.git

diff --git a/lib/DX/Lib/FS/Action/RewriteFile.pm b/lib/DX/Lib/FS/Action/RewriteFile.pm
index 625f2df..b1b8a08 100644
--- a/lib/DX/Lib/FS/Action/RewriteFile.pm
+++ b/lib/DX/Lib/FS/Action/RewriteFile.pm
@@ -10,11 +10,11 @@ has from => (is => 'ro', required => 1, handles => [ 'path' ]);
 
 has add_lines => (is => 'ro', default => sub { [] });
 
-has remove_lines => (is => 'ro', default => sub { {} });
+has remove_lines => (is => 'ro', default => sub { [] });
 
 has final_content => (is => 'lazy', init_arg => undef, builder => sub {
   my ($self) = @_;
-  my %remove = %{$self->remove_lines};
+  my %remove = map +($_ => 1), @{$self->remove_lines};
   join("\n",
     (grep !$remove{$_}, $self->from->lines->all),
     @{$self->add_lines},
@@ -27,7 +27,7 @@ sub but_add {
 }
 
 sub but_remove {
-  $_[0]->but(remove_lines => { %{$_[0]->remove_lines}, $_[1] => 1 });
+  $_[0]->but(remove_lines => [ @{$_[0]->remove_lines}, $_[1] ]);
 }
 
 sub expected_effect {