- $rPackage = \%{"${packageName}::"}; # Get a reference to the appropriate symbol table hash.
- $, = " " ;
- while (($varName, $globValue) = each %$rPackage) {
- last if ($varName eq "main::");
- print "$varName ============================= \n";
- *var = $globValue;
- if (defined ($var)) {
- print "\t \$$varName = '$var' \n";
- }
- if (defined (@var)) {
- pretty_print(@var);
+ $rPackage =
+ \%{"${packageName}::"
+ }; # Get a reference to the appropriate symbol table hash.
+ $, = " ";
+ while ( ( $varName, $globValue ) = each %$rPackage ) {
+ last if ( $varName eq "main::" );
+ print "$varName ============================= \n";
+ *var = $globValue;
+ if ( defined($var) ) {
+ print "\t \$$varName = '$var' \n";
+ }
+ if ( defined(@var) ) {
+ pretty_print(@var);