Subversion Repositories DevTools

Rev

Rev 283 | Rev 379 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 283 Rev 369
Line 784... Line 784...
784 
        local *alias = $globValue;
 784 
        local *alias = $globValue;
785 
        if (defined ($alias)) {
 785 
        if (defined ($alias)) {
786 
            print Data::Dumper->Dump ( [$alias], ["*$varName" ]);
 786 
            print Data::Dumper->Dump ( [$alias], ["*$varName" ]);
787 
#            print "\t \$$varName $alias \n";
 787 
#            print "\t \$$varName $alias \n";
788 
        }
788 
        }
789 
        if (defined (@alias)) {
 789 
        if (@alias) {
790 
            print Data::Dumper->Dump ( [\@alias], ["*$varName" ]);
 790 
            print Data::Dumper->Dump ( [\@alias], ["*$varName" ]);
791 
#            print "\t \@$varName @alias \n";
 791 
#            print "\t \@$varName @alias \n";
792 
        }
792 
        }
793 
        if (defined (%alias)) {
 793 
        if (%alias) {
794 
            print Data::Dumper->Dump ( [\%alias], ["*$varName" ]);
 794 
            print Data::Dumper->Dump ( [\%alias], ["*$varName" ]);
795 
#            print "\t \%$varName ",%alias," \n";
 795 
#            print "\t \%$varName ",%alias," \n";
796 
        }
 796 
        }
797 
        if (defined (&alias)) {
 797 
        if (defined (&alias)) {
798 
#            print Data::Dumper->Dump ( [\&alias], ["*$varName" ]);
 798 
#            print Data::Dumper->Dump ( [\&alias], ["*$varName" ]);