[svn:parrot] r34936 - trunk/lib/Parrot

Author: jkeenan
Date: Sun Jan  4 12:48:46 2009
New Revision: 34936

Modified:
   trunk/lib/Parrot/Distribution.pm

Log:
Restore slurp() method.

Modified: trunk/lib/Parrot/Distribution.pm
==============================================================================
--- trunk/lib/Parrot/Distribution.pm	(original)
+++ trunk/lib/Parrot/Distribution.pm	Sun Jan  4 12:48:46 2009
@@ -34,6 +34,8 @@
 
 use ExtUtils::Manifest;
 use File::Spec;
+use lib qw( lib );
+use Parrot::BuildUtil ();
 
 use base 'Parrot::Docs::Directory';
 
@@ -782,6 +784,23 @@
     };
 }
 
+sub slurp {
+    my $self = shift;
+    my $path = shift;
+    my $buf;
+
+    # slurp in the file
+    open( my $fh, '<', $path )
+        or die "Cannot open '$path' for reading: $!\n";
+    {
+        local $/;
+        $buf = <$fh>;
+    }
+    close $fh;
+
+    return $buf;
+}
+
 1;
 
 # Local Variables:

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