1 files changed, 44 insertions, 0 deletions
diff --git a/Bugzilla/PatchReader/NarrowPatch.pm b/Bugzilla/PatchReader/NarrowPatch.pm
new file mode 100644
index 000000000..b6502f2f3
--- /dev/null
+++ b/Bugzilla/PatchReader/NarrowPatch.pm
@@ -0,0 +1,44 @@
+package Bugzilla::PatchReader::NarrowPatch;
+
+use Bugzilla::PatchReader::FilterPatch;
+
+use strict;
+
+@Bugzilla::PatchReader::NarrowPatch::ISA = qw(Bugzilla::PatchReader::FilterPatch);
+
+sub new {
+  my $class = shift;
+  $class = ref($class) || $class;
+  my $this = $class->SUPER::new();
+  bless $this, $class;
+
+  $this->{INCLUDE_FILES} = [@_];
+
+  return $this;
+}
+
+sub start_file {
+  my $this = shift;
+  my ($file) = @_;
+  if (grep { $_ eq substr($file->{filename}, 0, length($_)) } @{$this->{INCLUDE_FILES}}) {
+    $this->{IS_INCLUDED} = 1;
+    $this->{TARGET}->start_file(@_) if $this->{TARGET};
+  }
+}
+
+sub end_file {
+  my $this = shift;
+  if ($this->{IS_INCLUDED}) {
+    $this->{TARGET}->end_file(@_) if $this->{TARGET};
+    $this->{IS_INCLUDED} = 0;
+  }
+}
+
+sub next_section {
+  my $this = shift;
+  if ($this->{IS_INCLUDED}) {
+    $this->{TARGET}->next_section(@_) if $this->{TARGET};
+  }
+}
+
+1