simplify Die and Warn calls

diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm
index 754d6d035da5da77cafc7edb04247f04afdbe8fb..88e4d6f40d8d9623b270e28af98c283ea5acf4b0 100644 (file)
--- a/lib/Perl/Tidy/Formatter.pm
+++ b/lib/Perl/Tidy/Formatter.pm
@@ -9840,11 +9840,11 @@ sub initialize_call_paren_style {
 
                 # words must be simple identifiers, or '&'
                 if ( $word !~ /^(?:\&|\w+)$/ || $word =~ /^\d/ ) {
-                    Perl::Tidy::Die(
+                    Die(
                         "Unexpected word in --$opt_name: '$word'\n");
                 }
                 if ( $iter && defined( $call_paren_style{$word} ) ) {
-                    Perl::Tidy::Warn(
+                    Warn(
                         "'$word' occurs in both -nwcp and -wcp, using -wcp\n");
                 }
             }