- my( $top ) = $address->get() =~ /^([^\/]+)/;
- $search =~ s/^\//$top\//;
- #Is it absolute address?
- my $saddr = PciIds::Address::new( $search );
- return redirect( $req, $args, $saddr->get(), $hasSSL ) if( defined $saddr && itemExists( $tables, $saddr->get() ) );
+ if( defined $address ) {
+ my( $top ) = $address->get() =~ /^([^\/]+)/;
+ $search =~ s/^\//$top\//;
+ #Is it absolute address?
+ my $saddr = PciIds::Address::new( $search );
+ return redirect( $req, $args, $saddr->get(), $hasSSL ) if( defined $saddr && itemExists( $tables, $saddr->get() ) );
+ }