Oopsie, wasn't passing parameters correctly

git-svn-id: http://svn.perl.org/modules/Module-Build/trunk@4655 50811bd7-b8ce-0310-adc1-d9db26280581
FROGGS · Jan 9, 2004 · 110ced8 · 110ced8
1 parent 6f11834
commit 110ced8
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/Module/Build/PPMMaker.pm b/lib/Module/Build/PPMMaker.pm
@@ -124,7 +124,7 @@ sub _ppd_version {
 }
 
 sub _varchname {  # Copied from PPM.pm
-  my $config = shift;
+  my ($self, $config) = @_;
   my $varchname = $config->{archname};
   # Append "-5.8" to architecture name for Perl 5.8 and later
   if (length($^V) && ord(substr($^V,1)) >= 8) {