Committer: gprochaev
LJSUP-7052. remove "my ... if"U trunk/cgi-bin/LJ/Browse.pm
Modified: trunk/cgi-bin/LJ/Browse.pm =================================================================== --- trunk/cgi-bin/LJ/Browse.pm 2010-11-19 06:10:07 UTC (rev 17726) +++ trunk/cgi-bin/LJ/Browse.pm 2010-11-19 07:20:08 UTC (rev 17727) @@ -60,9 +60,11 @@ foreach my $f (qw(url_path pretty_name parentcatid in_nav)) { $self->{$f} = delete $opts{$f} if exists $opts{$f}; } - my $topcat = delete $opts{topcat} if exists $opts{topcat}; + my $topcat = undef; + $topcat = delete $opts{topcat} if exists $opts{topcat}; - my $vertical = delete $opts{'vertical'} if exists $opts{'vertical'}; + my $vertical = undef; + $vertical = delete $opts{'vertical'} if exists $opts{'vertical'}; croak("need to supply display name") unless defined $self->{pretty_name}; croak("need to supply URL path") unless defined $self->{url_path};