generate perl bindings

acme · Jul 9, 2009 · ead3847 · ead3847
1 parent c6e3cf3
commit ead3847
Showing 1 changed file with 8 additions and 0 deletions.
diff --git a/bin/build.pl b/bin/build.pl
@@ -16,6 +16,7 @@
 my $cassandra_class
     = dir( cwd, 'cassandra-trunk', 'build', 'classes', 'org', 'apache',
     'cassandra', 'service', 'CassandraDaemon.class' );
+my $gen_perl_dir = dir( cwd, 'gen-perl' );
 
 unless ( -d $thrift_trunk_dir ) {
     say 'Fetching Thrift';
@@ -66,3 +67,10 @@
     system "ant";
     die 'Failed to build' unless -f $cassandra_class;
 }
+
+unless ( -d $gen_perl_dir ) {
+    say 'Generating Perl bindings';
+    system
+        "$thrift_installed_dir/bin/thrift --gen perl $cassandra_trunk_dir/interface/cassandra.thrift";
+    die 'Failed to generate' unless -d $gen_perl_dir;
+}