[svn:Module-Build] r13679 - Module-Build/trunk/lib/inc

[email protected] Thu, 17 Dec 2009 12:01:23 -0800 (PST)
Newsgroups perl.module.build.checkins
Message-ID <[email protected]>
Author: dagolden
Date: Thu Dec 17 12:01:23 2009
New Revision: 13679

Modified:
   Module-Build/trunk/lib/inc/latest.pm

Log:
clean up inc::latest guts

Modified: Module-Build/trunk/lib/inc/latest.pm
==============================================================================
--- Module-Build/trunk/lib/inc/latest.pm	(original)
+++ Module-Build/trunk/lib/inc/latest.pm	Thu Dec 17 12:01:23 2009
@@ -21,9 +21,9 @@
   my ($package, $mod, @args) = @_;
   return unless(defined $mod);
 
-  my $inc_path = 'inc/latest.pm';
   my $private_path = 'inc/latest/private.pm';
-  if(-e $inc_path) {
+  if(-e $private_path) {
+    # user mode - delegate work to bundled private module
     require $private_path;
     splice( @_, 0, 1, 'inc::latest::private');
     goto \&inc::latest::private::import;