Changeset 32

Show
Ignore:
Timestamp:
04/26/07 10:38:12 (2 years ago)
Author:
root
Message:

Remove more unused vars

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/op_server.pl

    r31 r32  
    19191919    my $canal            = shift; 
    19201920    my $server           = shift; 
    1921     my $canalidsinserver = ""; 
    19221921    my $canalglobal; 
    1923     my $valor; 
    1924     my @new     = (); 
    19251922    my $heading = "** ERASE_INSTANCE_TRUNK"; 
    19261923 
    …… 
    19281925    $solocanal =~ s/[^\w]//g; 
    19291926 
    1930     $canalidsinserver = $canalid; 
    19311927    $canalid          = "$server^$canalid"; 
    19321928    $canalid =~ s/(.*)<(.*)>/$1/g;    #discards ZOMBIE or MASQ