[reformatted]
And added .perltidyrc.
--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/.perltidyrc Mon Jan 26 21:33:59 2009 +0100
@@ -0,0 +1,1 @@
+/home/heiko/.perltidyrc
\ No newline at end of file
--- a/check-smtp-auth Mon Jan 26 21:28:20 2009 +0100
+++ b/check-smtp-auth Mon Jan 26 21:33:59 2009 +0100
@@ -22,8 +22,8 @@
GetOptions(
"d|debug" => \$opt_debug,
"s|ssl" => \$opt_ssl,
- "m|man" => sub { pod2usage(-exitval => 0, -verbose => 2) },
- "h|help" => sub { pod2usage(-exitval => 0, -verbose => 1) },
+ "m|man" => sub { pod2usage(-exitval => 0, -verbose => 2) },
+ "h|help" => sub { pod2usage(-exitval => 0, -verbose => 1) },
) or pod2usage();
my $remote = shift or pod2usage;
@@ -135,3 +135,5 @@
the current version.
=cut
+
+# vim:sts=4 sw=4 ai aw: