--- trunk/lib/Frey/Web.pm 2008/11/26 16:34:25 537
+++ trunk/lib/Frey/Web.pm 2008/11/26 17:36:02 538
@@ -208,7 +208,24 @@
$status_line .= $self->warnings_html;
- $status_line .= $self->popup( INC => { %INC }, 1 );
+ my $inc_html;
+ {
+ my $inc;
+ map {
+ s{.pm$}{};
+ my $class = $_;
+ s[/][}->{]g;
+ $class =~ s[/][::]g;
+ eval '$inc->{' . $_ . '} = $class';
+ } sort keys %INC;
+ $inc_html = dump( $inc );
+ $inc_html =~ s{\s+=>\s+\d+}{}gs;
+ $inc_html =~ s{(['"]?)(\w+)\1\s+=>\s+(['"]?)([\w:]*\2)\3}{$2}gs;
+ $inc_html =~ s{\s+=>\s+}{ }gs;
+ $inc_html =~ s{,}{}gs;
+ }
+
+ $status_line .= $self->popup( INC => "$inc_html" );
my ($exit,$description) = ('exit','stop server');
($exit,$description) = ('restart','restart server')