[livejournal] r17727: LJSUP-7052. remove "my ... if"
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};
