view release on metacpan or  search on metacpan

Makefile.PL  view on Meta::CPAN

    },
    dist  => {COMPRESS => 'gzip -9f', SUFFIX => 'gz',},
    clean => {FILES    => 'Graphics-Framebuffer* _Inline* examples/_Inline* *.inl *log *bak *old'},
);
# print $blink,colored(['black on_bright_white'],sprintf('%-67s',' PLEASE PAY ATTENTION TO THE MESSAGE ABOVE FOR ANY MISSING MODULES ')),"\n";

exit(0);

sub slurp_file {
    my $file = shift;
    return( do { local (@ARGV, $/) = $file; <> } );
}

sub no_framebuffer {
    my $fb_absent = TRUE;
	my $os = `uname`;
	chomp($os);
	if ($os eq 'Linux') {
		foreach my $device (0 .. 31) {
			foreach my $prefix (qw( /dev/fb /dev/fb/ /dev/graphics/fb/ )) {
				if (-e "$prefix$device") {