Changeset 3505 for lang/perl/Text-Darts

Timestamp:

12/24/07 03:10:25 (5 years ago)

Author:

dankogai

Message:

v0.03; POD fixes

Location:

lang/perl/Text-Darts/trunk

Files:

• Changes (modified) (1 diff)
• Makefile.PL (modified) (2 diffs)
• lib/Text/Darts.pm (modified) (2 diffs)

lang/perl/Text-Darts/trunk/Changes

@@ -1 +1 @@
 # Revision history for Perl extension Text::Darts.
 #
-# $Id: Changes,v 0.2 2007/12/23 16:32:49 dankogai Exp dankogai $
+# $Id: Changes,v 0.3 2007/12/23 18:08:55 dankogai Exp dankogai $
 #
-$Revision: 0.2 $ $Date: 2007/12/23 16:32:49 $
+$Revision: 0.3 $ $Date: 2007/12/23 18:08:55 $
+! Makefile.pm
+  s@intra/@dan.co.jp/
+
+0.02 2007/12/23 16:32:49
 ! Darts.xs lib/Text/Darts.pm
   added $td->open();

lang/perl/Text-Darts/trunk/Makefile.PL

@@ -1 +1 @@
 #
-# $Id: Makefile.PL,v 0.1 2007/12/23 15:27:34 dankogai Exp $
+# $Id: Makefile.PL,v 0.2 2007/12/23 18:08:55 dankogai Exp dankogai $
 #
 use 5.008001;
@@ -21 +21 @@
             ABSTRACT_FROM =>
               'lib/Text/Darts.pm',    # retrieve abstract from module
-            AUTHOR => 'Dan <dankogai@intra>'
+            AUTHOR => 'Dan <dankogai@dan.co.jp>'
           )
         : ()

lang/perl/Text-Darts/trunk/lib/Text/Darts.pm

@@ -3 +3 @@
 use warnings;
 use Carp;
-our $VERSION = sprintf "%d.%02d", q$Revision: 0.2 $ =~ /(\d+)/g;
+our $VERSION = sprintf "%d.%02d", q$Revision: 0.3 $ =~ /(\d+)/g;
 our $DEBUG = 0;
 
@@ -70 +70 @@
   my $td     = Text::Darts->new(qw/ALGOL ANSI ARCO ARPA ARPANET ASCII/);
   my $newstr = $td->gsub("ARPANET is a net by ARPA", sub{ "<<$_[0]>>" });
-  $newstr is now "<<ARPANET>> is a net by <<ARPA>>".
+  # $newstr is now "<<ARPANET>> is a net by <<ARPA>>".
   # or
   my $td     = Text::Darts->open("words.darts");