[svn:parrot] r34929 - trunk/lib/Parrot/Configure

Author: jkeenan
Date: Sun Jan  4 11:17:18 2009
New Revision: 34929

Modified:
   trunk/lib/Parrot/Configure/Utils.pm

Log:
Alias _slurp to Parrot::BuildUtil::slurp_file() per https://trac.parrot.org/parrot/ticket/117.

Modified: trunk/lib/Parrot/Configure/Utils.pm
==============================================================================
--- trunk/lib/Parrot/Configure/Utils.pm	(original)
+++ trunk/lib/Parrot/Configure/Utils.pm	Sun Jan  4 11:17:18 2009
@@ -33,6 +33,7 @@
 use File::Spec;
 use File::Which;
 use lib ("lib");
+use Parrot::BuildUtil ();
 our @EXPORT    = ();
 our @EXPORT_OK = qw(
     prompt copy_if_diff move_if_diff integrate
@@ -295,19 +296,12 @@
 
 =item C<_slurp($filename)>
 
-Slurps C<$filename> into memory and returns it as a string.
+Slurps C<$filename> into memory and returns it as a string.  This is just an
+alias for C<Parrot::BuildUtil::slurp_file>.
 
 =cut
 
-sub _slurp {
-    my $filename = shift;
-
-    open( my $fh, '<', $filename ) or die "Can't open $filename: $!";
-    my $text = do { local $/; <$fh> };
-    close($fh) or die "Can't close $filename: $!";
-
-    return $text;
-}
+*_slurp = \&Parrot::BuildUtil::slurp_file;
 
 =back
 

• [svn:parrot] r34929 - trunk/lib/Parrot/Configure by jkeenan