Changeset 4216 for lang/perl/Config-Pit/trunk

Timestamp:

01/08/08 17:36:04 (5 years ago)

Author:

yappo

Message:

lang/perl/Config-Pit: oops

Files:

• lang/perl/Config-Pit/trunk/bin/ppit (modified) (1 diff)

lang/perl/Config-Pit/trunk/bin/ppit

@@ -19 +19 @@
     },
     switch => sub {
-        Config::Pit::switch($name || shift);
+        Config::Pit::switch(shift);
     },
 }->{(shift || '')} || sub { pod2usage } )->(@ARGV[1..2]);