From 2d3e46a739e4bd7155cf0bf40073074734768606 Mon Sep 17 00:00:00 2001 From: Sebastian Riedel Date: Sun, 17 Oct 2004 20:23:03 +0000 Subject: [PATCH] support for unknown flags, for future backwards compatibility git-svn-id: http://svn.maypole.perl.org/Maypole/trunk@236 48953598-375a-da11-a14b-00016c27c3ee --- lib/Maypole/Application.pm | 1 + 1 file changed, 1 insertion(+) diff --git a/lib/Maypole/Application.pm b/lib/Maypole/Application.pm index df66285..a3cd971 100644 --- a/lib/Maypole/Application.pm +++ b/lib/Maypole/Application.pm @@ -30,6 +30,7 @@ sub import { *{"$caller\::debug"} = sub { 1 }; warn "Debugging enabled"; } + elsif (/^-.*$/) { warn "Unknown flag: $_" } else { # The plugin caller should be our application class -- 2.39.5