[Perl-flat-commit-notify] SF.net SVN: perl-flat: [92] trunk/perl-flat

[notifies s. of c. c. <per...@li...>]

Revision: 92
          http://svn.sourceforge.net/perl-flat/?rev=92&view=rev
Author:   estrabd
Date:     2007-02-15 09:53:10 -0800 (Thu, 15 Feb 2007)

Log Message:
-----------
added /usr/bin/local/fash utility stub and added ExtUtils::MakeMaker run script to install it

Modified Paths:
--------------
    trunk/perl-flat/MANIFEST
    trunk/perl-flat/Makefile.PL
    trunk/perl-flat/lib/FLAT/Symbol.pm

Added Paths:
-----------
    trunk/perl-flat/bin/
    trunk/perl-flat/bin/fash
    trunk/perl-flat/bin/util-put.pl

Modified: trunk/perl-flat/MANIFEST
===================================================================
--- trunk/perl-flat/MANIFEST	2007-02-15 05:56:19 UTC (rev 91)
+++ trunk/perl-flat/MANIFEST	2007-02-15 17:53:10 UTC (rev 92)
@@ -14,5 +14,7 @@
 lib/FLAT/DFA.pm
 lib/FLAT/Transition.pm
 lib/FLAT.pm
+bin/util-put.pl
+bin/fash
 Makefile.PL
 META.yml                                 Module meta-data (added by MakeMaker)

Modified: trunk/perl-flat/Makefile.PL
===================================================================
--- trunk/perl-flat/Makefile.PL	2007-02-15 05:56:19 UTC (rev 91)
+++ trunk/perl-flat/Makefile.PL	2007-02-15 17:53:10 UTC (rev 92)
@@ -6,6 +6,7 @@
                     NAME          => 'FLAT',
                     VERSION_FROM  => 'lib/FLAT.pm',
                     PREREQ_PM     => { Parse::RecDescent => 0 },
+                    PL_FILES     => {'bin/util-put.pl', 'bin/util-put'},
     ($] >= 5.005 ? (ABSTRACT_FROM => 'lib/FLAT.pm',
                     AUTHOR        => 'perl-flat')
                  : ()),

Added: trunk/perl-flat/bin/fash
===================================================================
--- trunk/perl-flat/bin/fash	                        (rev 0)
+++ trunk/perl-flat/bin/fash	2007-02-15 17:53:10 UTC (rev 92)
@@ -0,0 +1,5 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+

Added: trunk/perl-flat/bin/util-put.pl
===================================================================
--- trunk/perl-flat/bin/util-put.pl	                        (rev 0)
+++ trunk/perl-flat/bin/util-put.pl	2007-02-15 17:53:10 UTC (rev 92)
@@ -0,0 +1,18 @@
+#! perl
+
+use strict;
+use warnings;
+use Config;
+use File::Copy;
+
+# copys bin/f@sh to system bin directory and ensures its is 755
+
+if (-w $Config{installbin})
+ { print "Installing f\@sh utility in $Config{installbin}\n";
+   copy('bin/fash',"$Config{installbin}/fash") || die $!; 
+   chmod 0755,"$Config{installbin}/fash";}
+else
+ { print "You do not have permission to write to $Config{installbin}\n";
+   print "Warn: bin/f\@sh not installed to $Config{installbin}\n";}
+
+1;

Modified: trunk/perl-flat/lib/FLAT/Symbol.pm
===================================================================
--- trunk/perl-flat/lib/FLAT/Symbol.pm	2007-02-15 05:56:19 UTC (rev 91)
+++ trunk/perl-flat/lib/FLAT/Symbol.pm	2007-02-15 17:53:10 UTC (rev 92)
@@ -81,5 +81,3 @@
 A super class that is intended to provide a simple mechanism for storing a symbol that might be 
 in conflict with another symbol in string form.  TYPE is used to distinguish.  Currenly this neither 
 this, nor its current sub classes, Regular and Special, are used.
-
-=back


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.