[perl-glib-object-introspection] Adapt t/arrays.t to newer poppler versions to avoid test failures

[Torsten Schönfeld <tsch src gnome org>]

commit 56a96d226023940c1c9684cd5141cf420b3390e9
Author: Torsten Schönfeld <kaffeetisch gmx de>
Date:   Fri Dec 6 15:11:20 2019 +0100

    Adapt t/arrays.t to newer poppler versions to avoid test failures

 t/arrays.t | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)
---
diff --git a/t/arrays.t b/t/arrays.t
index 36a742b..071cf94 100644
--- a/t/arrays.t
+++ b/t/arrays.t
@@ -201,7 +201,9 @@ SKIP: {
 trailer <</Root 1 0 R>>
 __PDF__
 
-  my $doc = Poppler::Document->new_from_data ($pdf, length $pdf, undef);
+  my ($major, $minor, $micro) = split /\./, Poppler::get_version ();
+  my @args = ($major > 0 || $minor >= 78) ? ($pdf, undef) : ($pdf, length $pdf, undef);
+  my $doc = Poppler::Document->new_from_data (@args);
   my $quads = [
     Glib::Boxed::new ('Poppler::Quadrilateral',
                       {p1 => {x => 0, y => 0},