[svn:ExtUtils-CBuilder] r12918 - ExtUtils-CBuilder/trunk

Author: dagolden
Date: Fri Jun 26 12:20:00 2009
New Revision: 12918

Modified:
   ExtUtils-CBuilder/trunk/bleadcheck.pl

Log:
make bleadcheck utility take a path to blead source

Modified: ExtUtils-CBuilder/trunk/bleadcheck.pl
==============================================================================
--- ExtUtils-CBuilder/trunk/bleadcheck.pl	(original)
+++ ExtUtils-CBuilder/trunk/bleadcheck.pl	Fri Jun 26 12:20:00 2009
@@ -1,13 +1,14 @@
 #!/usr/bin/perl
 
 # A script to check a local copy against bleadperl, generating a blead
-# patch if they're out of sync.  An optional directory argument will
-# be chdir()-ed into before comparing.
+# patch if they're out of sync.  The path to bleadperl is required.
+# An optional directory argument will be chdir()-ed into before comparing.
 
 use strict;
-chdir shift() if @ARGV;
+my $blead = shift @ARGV
+  or die "Usage: $0 <bleadperl-src> [ExtUtils-CBuilder-src]\n";
 
-my $blead = "~/Downloads/perl/bleadperl";
+chdir shift() if @ARGV;
 
 
 diff( "$blead/lib/ExtUtils/CBuilder.pm", "lib/ExtUtils/CBuilder.pm");