[perl-Glib-Object-Introspection] perli11ndoc: hush a warning when run in text mode without args

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

commit 0a4a57733fb58ca96204496ac79354063895d7be
Author: Torsten Schönfeld <kaffeetisch gmx de>
Date:   Mon Sep 7 22:35:16 2015 +0200

    perli11ndoc: hush a warning when run in text mode without args

 bin/perli11ndoc |    6 +++---
 1 files changed, 3 insertions(+), 3 deletions(-)
---
diff --git a/bin/perli11ndoc b/bin/perli11ndoc
index a69206e..4ef225c 100755
--- a/bin/perli11ndoc
+++ b/bin/perli11ndoc
@@ -27,13 +27,13 @@ use XML::LibXML qw//;
     exit;
   }
 
-  my $pattern = $ARGV[0];
-  my ($lib_pattern, @element_patterns) = split /::/, $pattern;
-
   if (! ARGV) {
     die 'Usage: perli11ndoc <library name>[::<element name>[::<element name>]]';
   }
 
+  my $pattern = $ARGV[0];
+  my ($lib_pattern, @element_patterns) = split /::/, $pattern;
+
   my $gir = find_gir ($lib_pattern);
   $parser->open ($gir);