X-Git-Url: http://git.shiar.net/perl/file-rewrite.git/blobdiff_plain/823d3f4eb8310783355dbd5fe026332e6887e538..46841d08dc662113df30cf49e072b0ba04d4d9aa:/lib/File/Rewrite.pm

diff --git a/lib/File/Rewrite.pm b/lib/File/Rewrite.pm
index 5a30a32..784542d 100644
--- a/lib/File/Rewrite.pm
+++ b/lib/File/Rewrite.pm
@@ -19,7 +19,16 @@ sub fileset {
 	while (readline $src) {
 		chomp;
 		if ($_ =~ (ref $search ? $search : qr/^\Q$search\E$/)) {
-			if (defined $replace and $_ eq $replace) {
+			if (ref $replace eq 'ARRAY') {
+				if (@$replace and $_ eq $replace->[0]) {
+					shift @$replace;
+				}
+				else {
+					$changes++;
+					next;
+				}
+			}
+			elsif (defined $replace and $_ eq $replace) {
 				undef $replace;
 			}
 			else {
@@ -31,8 +40,10 @@ sub fileset {
 	}
 	close $src;
 	if (defined $replace) {
-		$changes++;
-		print {$dest} $replace, $/;
+		for (ref $replace eq 'ARRAY' ? @$replace : $replace) {
+			$changes++;
+			print {$dest} $_, $/;
+		}
 	}
 	close $dest;