From 0e8b67e017522f701b2f1e915ddfc0d49a8bcea4 Mon Sep 17 00:00:00 2001 From: Russ Allbery Date: Wed, 23 Jan 2008 23:32:12 +0000 Subject: Avoid return undef as a matter of style. --- tests/server/backend-t.in | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/tests/server/backend-t.in b/tests/server/backend-t.in index 553ce55..88cbd1a 100644 --- a/tests/server/backend-t.in +++ b/tests/server/backend-t.in @@ -23,7 +23,7 @@ $okay = 0; sub error { if ($okay) { $okay = 0; - return undef; + return; } else { $error++; return "error count $error"; @@ -69,10 +69,10 @@ sub acl { shift; print "acl @_\n"; if ($_[0] eq 'error') { - return undef; + return; } elsif ($_[1] eq 'empty') { $okay = 1; - return undef; + return; } else { return 'acl'; } @@ -97,10 +97,10 @@ sub expires { shift; print "expires @_\n"; if ($_[0] eq 'error') { - return undef; + return; } elsif ($_[1] eq 'empty') { $okay = 1; - return undef; + return; } else { return 'expires'; } @@ -124,10 +124,10 @@ sub owner { shift; print "owner @_\n"; if ($_[0] eq 'error') { - return undef; + return; } elsif ($_[1] eq 'empty') { $okay = 1; - return undef; + return; } else { return 'owner'; } -- cgit v1.2.3