bin/imager.check
changeset 27 82c0df89b287
parent 26 496ee9b0f488
child 28 a305827c8827
--- a/bin/imager.check	Fri Jul 29 10:53:14 2011 +0200
+++ b/bin/imager.check	Fri Jul 29 10:58:05 2011 +0200
@@ -30,11 +30,11 @@
         "y|yes!"     => \$o{yes},
         "v|verbose!" => \$o{verbose},
         "c|check"    => \$o{check},
-        "h|help"     => sub { pod2usage(-verbose => 1, -exit 0) },
+        "h|help"     => sub { pod2usage(-verbose => 1, -exit => 0) },
         "m|man"      => sub {
             pod2usage(
                 -verbose => 2,
-                -exit 0,
+                -exit => 0,
                 -noperldoc => system(
                     "perldoc -V 1>/dev/null
 			  2>&1"