From 5011f2521ea1f6f2f3b1d22a7ff7e802e4ce3bcf Mon Sep 17 00:00:00 2001
From: Florian Pritz <bluewind@xinu.at>
Date: Wed, 1 Nov 2017 16:37:37 +0100
Subject: Add filter-pacman-log-pactree.pl

Signed-off-by: Florian Pritz <bluewind@xinu.at>
---
 filter-pacman-log-pactree.pl | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)
 create mode 100644 filter-pacman-log-pactree.pl

diff --git a/filter-pacman-log-pactree.pl b/filter-pacman-log-pactree.pl
new file mode 100644
index 0000000..5701e5c
--- /dev/null
+++ b/filter-pacman-log-pactree.pl
@@ -0,0 +1,22 @@
+#!/usr/bin/env perl
+use warnings;
+use strict;
+
+use autodie;
+
+my $package = $ARGV[0];
+my $logfile = "/var/log/pacman.log";
+
+open my $logfh, "<", $logfile;
+
+my @dependencies = qx/pactree -l "$package" | sort -u/;
+chomp(@dependencies);
+die "No dependencies found. Did pactree fail?" if (@dependencies == 0);
+
+my $re = join("|", map {quotemeta} @dependencies);
+my $dependency_regex = qr/\s($re)\s/;
+
+while (<$logfh>) {
+	print if m/$dependency_regex/;
+}
+
-- 
cgit v1.2.3-24-g4f1b