From: Sebastian Riedel <sri@labs.kraih.com>
Date: Sun, 17 Oct 2004 20:23:03 +0000 (+0000)
Subject: support for unknown flags, for future backwards compatibility
X-Git-Tag: 2.10~126
X-Git-Url: https://git.decadent.org.uk/gitweb/?a=commitdiff_plain;h=2d3e46a739e4bd7155cf0bf40073074734768606;p=maypole.git

support for unknown flags, for future backwards compatibility


git-svn-id: http://svn.maypole.perl.org/Maypole/trunk@236 48953598-375a-da11-a14b-00016c27c3ee
---

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