i3/testcases/lib/i3test/Util.pm
Ingo Bürk b9b1a60b5d Fix segfault when calling "i3 -C".
Commit 287a0b4 introduced a segfault when validating the i3 config
as the root_screen will not be set in this case, causing a null
pointer dereference.

fixes #2144
2016-01-05 22:50:38 -05:00

48 lines
600 B
Perl

package i3test::Util;
# vim:ts=4:sw=4:expandtab
use strict;
use warnings;
use v5.10;
use Exporter qw(import);
our @EXPORT = qw(
slurp
);
=encoding utf-8
=head1 NAME
i3test::Util - General utility functions
=cut
=head1 EXPORT
=cut
=head2 slurp($fn)
Reads the entire file specified in the arguments and returns the content.
=cut
sub slurp {
my ($file) = @_;
my $content = do {
local $/ = undef;
open my $fh, "<", $file or die "could not open $file: $!";
<$fh>;
};
return $content;
}
=head1 AUTHOR
Michael Stapelberg <michael@i3wm.org>
=cut
1