Subject: Fix uninitialized value $flagname warning
Date: Wed, 22 Jul 2009 13:29:28 +0200
From: Ansgar Burchardt <ansgar@43-1.org>
X-Forwarded: https://rt.cpan.org/Ticket/Display.html?id=48088

This fixes the warning

   Use of uninitialized value $flagname in string eq at
   [...]/lib/Data/Sorting.pm line 420.

that showed up in the test suite.
--- libdata-sorting-perl.orig/Sorting.pm
+++ libdata-sorting-perl/Sorting.pm
@@ -419,7 +419,7 @@
     my ( $flagname ) = ( $token =~ /^\-(\w+)$/ );
     if ( $flagname and $SupportedOptions{$flagname} ) {
       $state{ $flagname } = shift @arguments;
-    } elsif ( $flagname eq 'sortkey' ) {
+    } elsif ( defined($flagname) and $flagname eq 'sortkey' ) {
       push @rules, { @DefaultState, %state, 'sortkey' => shift @arguments };
     } elsif ( ref($token) eq 'HASH' ) {
       push @rules, { @DefaultState, %state, %$token };