diff options
Diffstat (limited to '')
-rw-r--r-- | scripts/Dpkg/File.pm | 51 |
1 files changed, 51 insertions, 0 deletions
diff --git a/scripts/Dpkg/File.pm b/scripts/Dpkg/File.pm new file mode 100644 index 0000000..6ba49a6 --- /dev/null +++ b/scripts/Dpkg/File.pm @@ -0,0 +1,51 @@ +# Copyright © 2011 Raphaël Hertzog <hertzog@debian.org> +# Copyright © 2012 Guillem Jover <guillem@debian.org> +# +# This program is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2 of the License, or +# (at your option) any later version. +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program. If not, see <https://www.gnu.org/licenses/>. + +package Dpkg::File; + +use strict; +use warnings; + +our $VERSION = '0.01'; +our @EXPORT = qw( + file_slurp +); + +use Exporter qw(import); +use Scalar::Util qw(openhandle); + +use Dpkg::ErrorHandling; +use Dpkg::Gettext; + +sub file_slurp { + my $file = shift; + my $fh; + my $doclose = 0; + + if (openhandle($file)) { + $fh = $file; + } else { + open $fh, '<', $file or syserr(g_('cannot read %s'), $fh); + $doclose = 1; + } + local $/; + my $data = <$fh>; + close $fh if $doclose; + + return $data; +} + +1; |