--- trunk/lib/Frey.pm 2008/06/29 16:29:09 24 +++ trunk/lib/Frey.pm 2008/06/29 20:49:42 31 @@ -38,8 +38,9 @@ return; } warn ">> $_ ",dump( @a ) if $self->debug; - warn "## $a[1]::$a[2]\n"; - push @$classes, join('::', @a); + my $package = "$a[1]::$a[2]"; + warn "## $package\n"; + push @$classes, $package; } }, 'lib'); warn "## classes = ",dump( $classes ) if $self->debug; $classes;