From: Perl 5 Porters <perl5-porters@africa.nicoh.com>
Date: Mon, 11 Mar 1996 07:17:33 +0000 (+0000)
Subject: Minor change to make -w clean
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=62c81c0b976dea996d718182c8de454c07dea568;p=p5sagit%2Fp5-mst-13.2.git

Minor change to make -w clean
---

diff --git a/lib/Getopt/Long.pm b/lib/Getopt/Long.pm
index 25bf704..5dd5d16 100644
--- 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;");