perl 5.003_01: lib/ExtUtils/MakeMaker.pm

[p5sagit/p5-mst-13.2.git] / lib / Getopt / Long.pm

diff --git a/lib/Getopt/Long.pm b/lib/Getopt/Long.pm
index 25bf704..5dd5d16 100644 (file)
--- a/lib/Getopt/Long.pm
+++ b/lib/Getopt/Long.pm
@@ -599,7 +599,7 @@ sub GetOptions {
            # Make sure a valid perl identifier results.
            my $ov = $o;
            $ov =~ s/\W/_/g;
-           if ( $c =~ /@/ ) {
+           if ( $c && $c =~ /@/ ) {
                print STDERR ("=> link \"$o\" to \@$pkg","::opt_$ov\n")
                    if $debug;
                eval ("\$linkage{\$o} = \\\@".$pkg."::opt_$ov;");