Moderator: Moderators
xlnagla wrote:I'm not sure if you guys are still watching this thread, but I've got drakconf kinda-ish working in Sabayon, if you're interested.
~xlnagla
package read_t;
use lib '../..';
use MDK::Common;
sub read_t {
my ($file) = @_;
my @tests;
my ($column_width, $line_number, @lines, @logs);
foreach (cat_($file), "\n") {
if (/^$/) {
push @tests, { line_number => $line_number, lines => [ @lines ], log s => [ @logs ] } if @lines;
@lines = @logs = ();
} else {
$column_width ||= length(first(/(.{20}\s+)/));
my ($line, $log) = $column_width > 25 && /(.{$column_width})(.*)/ ? (chomp_($1) . "\n", $2) : ($_, '');
$line =~ s/[ \t]*$//;
push @lines, $line;
push @logs, $log;
}
$line_number++;
}
@tests;
}
1;
foreach (cat_($file), "\n") {xlnagla wrote:same as always, xlnagla
Return to Artwork and Development Suggestions
Users browsing this forum: No registered users and 1 guest