#!/usr/bin/env perl

package Test1;

package Test1::Nested;
sub a { print "Test1::Nested::a\n"; }

package main;

use Symbol;

# ok.
eval "Test1::Nested::a()"; die $@ if $@;

Symbol::delete_package( 'Test1' );

# fails.
eval "Test1::Nested::a()"; die $@ if $@;