embed.fnc: Make some functions not flagged as 'A'

[perl5.git] / cpan / Devel-PPPort / soak

diff --git a/cpan/Devel-PPPort/soak b/cpan/Devel-PPPort/soak
index 1e98070..7473d77 100644 (file)
--- a/cpan/Devel-PPPort/soak
+++ b/cpan/Devel-PPPort/soak
@@ -7,13 +7,7 @@
 #
 ################################################################################
 #
-#  $Revision: 19 $
-#  $Author: mhx $
-#  $Date: 2009/01/18 14:10:50 +0100 $
-#
-################################################################################
-#
-#  Version 3.x, Copyright (C) 2004-2009, Marcus Holland-Moritz.
+#  Version 3.x, Copyright (C) 2004-2013, Marcus Holland-Moritz.
 #  Version 2.x, Copyright (C) 2001, Paul Marquess.
 #  Version 1.x, Copyright (C) 1999, Kenneth Albanowski.
 #
@@ -33,7 +27,7 @@ use File::Find;
 use List::Util qw(max);
 use Config;
 
-my $VERSION = do { my @r = '$Snapshot: /Devel-PPPort/3.19 $' =~ /(\d+\.\d+(?:_\d+)?)/; @r ? $r[0] : '9.99' };
+my $VERSION = '3.35';
 
 $| = 1;
 my %OPT = (
@@ -465,13 +459,13 @@ sub vsay
 sub warn
 {
   my $self = shift;
-  $self->say($self->colored(join('', @_), 'red')); 
+  $self->say($self->colored(join('', @_), 'red'));
 }
 
 sub die
 {
   my $self = shift;
-  $self->say($self->colored(join('', 'FATAL: ', @_), 'bold red')); 
+  $self->say($self->colored(join('', 'FATAL: ', @_), 'bold red'));
   exit -1;
 }
 
@@ -589,7 +583,7 @@ going on, use the I<--verbose> option:
 
 =head1 COPYRIGHT
 
-Version 3.x, Copyright (c) 2004-2009, Marcus Holland-Moritz.
+Version 3.x, Copyright (c) 2004-2013, Marcus Holland-Moritz.
 
 Version 2.x, Copyright (C) 2001, Paul Marquess.
 
@@ -603,4 +597,3 @@ modify it under the same terms as Perl itself.
 See L<Devel::PPPort>.
 
 =cut
-