PERFORCE change 11205 for review

[email protected] (Chris Nandor) Sat, 7 Jul 2001 21:01:21 -0400
Newsgroups perl.perl5.changes.mac
Message-ID <p05100316b76d614d0282@[10.0.1.177]>
Change 11205 by pudge@pudge-mobile on 2001/07/07 23:55:56

	Allow symbols in try_symbol() to begin with "_".

Affected files ...

... //depot/maint-5.6/macperl/makedef.pl#2 edit

Differences ...

==== //depot/maint-5.6/macperl/makedef.pl#2 (xtext) ====
Index: perl/makedef.pl
--- perl/makedef.pl.~1~	Sat Jul  7 18:00:06 2001
+++ perl/makedef.pl	Sat Jul  7 18:00:06 2001
@@ -645,7 +645,7 @@
 sub try_symbol {
     my $symbol = shift;
 
-    return if $symbol !~ /^[A-Za-z]/;
+    return if $symbol !~ /^[A-Za-z_]/;
     return if $symbol =~ /^\#/;
     $symbol =~s/\r//g;
     chomp($symbol);
End of Patch.