Restore MAD handling of package statements

Since the version seems unused by MAD in "use", do the same
for "package"...

1 files changed, 8 insertions, 10 deletions

diff --git a/perly.y b/perly.y
index 0616692470..5ec5845de2 100644
--- a/perly.y
+++ b/perly.y
@@ -635,20 +635,18 @@ subbody	:	block	{ $$ = $1; }
 
 package :	PACKAGE WORD WORD ';'
 			{
-/* Since no one seem to understand or use the MAD stuff, but Larry implies
- * it shouldn't be removed, it's just commented out, and someone who
- * understands it can come along later and fix it up.
 #ifdef MAD
-			  (yyval.opval) = package((ps[(2) - (3)].val.opval));
-			  token_getmad((ps[(1) - (3)].val.i_tkval),(yyval.opval),'o');
-			  token_getmad((ps[(3) - (3)].val.i_tkval),(yyval.opval),';');
+			  $$ = package($3);
+			  token_getmad($1,$$,'o');
+			  if ($2)
+			      package_version($2);
+			  token_getmad($4,$$,';');
 #else
-*/
 			  package($3);
-                          if ($2) {
-                              package_version($2);
-                          }
+			  if ($2)
+			      package_version($2);
 			  $$ = (OP*)NULL;
+#endif
 			}
 	;