Menu
▾
▴
data-pluginfile-checkins — Sends emails out after CVS checkins
You can subscribe to this list here.
| 2005 |
Jan
|
Feb
|
Mar
|
Apr
(14) |
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
|---|
|
From: Chilts <and...@us...> - 2005-04-30 11:46:09
|
Update of /cvsroot/data-pluginfile/data-pluginfiles/releases In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2535 Added Files: data-pluginfiles-0.1.md5 Log Message: - addition of an md5file for users to check release files against --- NEW FILE: data-pluginfiles-0.1.md5 --- 0019c1f6885acd81b3dd71fb72fc8c05 data-pluginfile-0.1.tar.gz fd1f5dd9165c20de34617a7a2903e434 libdata-pluginfiles-perl_0.1-1_all.deb |
|
From: Chilts <and...@us...> - 2005-04-30 11:42:39
|
Update of /cvsroot/data-pluginfile/data-pluginfiles/releases In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv755/releases Log Message: Directory /cvsroot/data-pluginfile/data-pluginfiles/releases added to the repository |
|
From: Chilts <and...@us...> - 2005-04-30 09:44:21
|
Update of /cvsroot/data-pluginfile/data-pluginfiles In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4772 Modified Files: Makefile.PL Added Files: MANIFEST META.yml Log Message: - made the Makefile.PL nicer so I can 'make dist' --- NEW FILE: META.yml --- # http://module-build.sourceforge.net/META-spec.html #XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX# name: Data-PluginFiles version: 0.1 version_from: Data/PluginFiles.pm installdirs: site requires: distribution_type: module generated_by: ExtUtils::MakeMaker version 6.17 Index: Makefile.PL =================================================================== RCS file: /cvsroot/data-pluginfile/data-pluginfiles/Makefile.PL,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -d -r1.1.1.1 -r1.2 *** Makefile.PL 30 Apr 2005 00:04:13 -0000 1.1.1.1 --- Makefile.PL 30 Apr 2005 09:44:08 -0000 1.2 *************** *** 2,7 **** # See lib/ExtUtils/MakeMaker.pm for details of how to influence # the contents of the Makefile that is written. ! WriteMakefile( ! 'NAME' => 'Data::PluginFiles', ! 'VERSION_FROM' => 'Data/PluginFiles.pm', # finds $VERSION ! ); --- 2,15 ---- # See lib/ExtUtils/MakeMaker.pm for details of how to influence # the contents of the Makefile that is written. ! ! my $details = { ! NAME => 'Data::PluginFiles', ! VERSION_FROM => 'Data/PluginFiles.pm', # finds $VERSION ! ($[ >= 5.005) ? ! ( AUTHOR => 'Andrew Chilton <andychilton AT users.sourceforge DOT net>', ! ABSTRACT => 'Module to read in a data file of format "Name: param=value..."') ! : (), ! PREREQ_PM => { 'Text::ParseWords' => 0 }, ! }; ! ! WriteMakefile( %$details ); --- NEW FILE: MANIFEST --- README Makefile.PL META.yml Data/PluginFiles.pm t/00load.t t/01data.t t/02comments.t t/03arrays.t t/04heredocs.t t/arrays.dat t/comments.dat t/data.dat t/heredocs.dat t/load.dat docs/changelog |
|
From: Chilts <and...@us...> - 2005-04-30 09:09:55
|
Update of /cvsroot/data-pluginfile/data-pluginfiles/docs In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv19822 Modified Files: changelog Log Message: - hmm, do we really need to check this in Index: changelog =================================================================== RCS file: /cvsroot/data-pluginfile/data-pluginfiles/docs/changelog,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** changelog 30 Apr 2005 08:35:03 -0000 1.1 --- changelog 30 Apr 2005 09:09:46 -0000 1.2 *************** *** 0 **** --- 1,52 ---- + 2005-04-30 21:08 andychilton + + * scripts/control.m4: - correct dependancies + + 2005-04-30 20:59 andychilton + + * scripts/: build_deb.sh, build_tar_gz.sh, control.m4: - slight + changes to build_tar_gz.sh - addition of build_deb.sh and + control.m4 + + 2005-04-30 20:51 andychilton + + * docs/copyright: - correct pointer to Perl copyright + + 2005-04-30 20:48 andychilton + + * scripts/gen_Changelog.sh: - make ChangeLog automatic + + 2005-04-30 20:46 andychilton + + * docs/copyright: - add copyright for Debian packaging + + 2005-04-30 20:35 andychilton + + * docs/: changelog, changelog.Debian: - need changelogs for Debian + packages (quick fix) + + 2005-04-30 17:43 andychilton + + * scripts/build_tar_gz.sh: - first version of build script + + 2005-04-30 16:48 andychilton + + * Data/PluginFiles.pm, t/00load.t, t/01data.t, t/02comments.t, + t/03arrays.t, t/04heredocs.t, t/arrays.dat, t/comments.dat, + t/data.dat, t/heredocs.dat, t/load.dat, t/params.dat, + t/quotes.dat, t/strings.dat: - addition of much nicer unit test + (removal of old data files) - bug fix in the way an incorrect + file was loaded (returns undef properly) + + 2005-04-30 12:04 andychilton + + * Makefile.PL, README, Data/PluginFiles.pm, scripts/gen_README.sh, + t/arrays.dat, t/heredocs.dat, t/params.dat, t/quotes.dat, + t/strings.dat: - initial import + + 2005-04-30 12:04 andychilton + + * Makefile.PL, README, Data/PluginFiles.pm, scripts/gen_README.sh, + t/arrays.dat, t/heredocs.dat, t/params.dat, t/quotes.dat, + t/strings.dat: Initial revision + |
|
From: Chilts <and...@us...> - 2005-04-30 09:08:36
|
Update of /cvsroot/data-pluginfile/data-pluginfiles/scripts In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv18983 Modified Files: control.m4 Log Message: - correct dependancies Index: control.m4 =================================================================== RCS file: /cvsroot/data-pluginfile/data-pluginfiles/scripts/control.m4,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** control.m4 30 Apr 2005 08:59:10 -0000 1.1 --- control.m4 30 Apr 2005 09:08:28 -0000 1.2 *************** *** 4,8 **** Priority: optional Architecture: all ! Pre-Depends: perl Installed-Size: 1024 Maintainer: Andrew Chilton <and...@us...> --- 4,9 ---- Priority: optional Architecture: all ! Depends: perl-base ! Pre-Depends: perl Installed-Size: 1024 Maintainer: Andrew Chilton <and...@us...> |
|
From: Chilts <and...@us...> - 2005-04-30 08:59:24
|
Update of /cvsroot/data-pluginfile/data-pluginfiles/scripts In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv12853 Modified Files: build_tar_gz.sh Added Files: build_deb.sh control.m4 Log Message: - slight changes to build_tar_gz.sh - addition of build_deb.sh and control.m4 --- NEW FILE: control.m4 --- Package: __PACKAGE__ Version: __VERSION__ Section: perl Priority: optional Architecture: all Pre-Depends: perl Installed-Size: 1024 Maintainer: Andrew Chilton <and...@us...> Description: A Perl Module library to easily query a data file with format "Plugin: param=value...". . Data::PluginFiles provides a quick and easy way of loading up a datafile which has the format: . Plugin: param1=value1 param2=value2... . The library also allows the values to contain spaces (using quoting), run over multiple lines (with HEREDOCs) and allow input of arrays to one parameter name. . Comment lines and blank lines are allowed. Index: build_tar_gz.sh =================================================================== RCS file: /cvsroot/data-pluginfile/data-pluginfiles/scripts/build_tar_gz.sh,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** build_tar_gz.sh 30 Apr 2005 05:43:10 -0000 1.1 --- build_tar_gz.sh 30 Apr 2005 08:59:10 -0000 1.2 *************** *** 10,14 **** VERSION=$1 BASENAME="data-pluginfile" ! MODNAME="data-pluginfiles" RELEASE="$BASENAME-$VERSION" echo "Building package $RELEASE..." --- 10,14 ---- VERSION=$1 BASENAME="data-pluginfile" ! MODULE="data-pluginfiles" RELEASE="$BASENAME-$VERSION" echo "Building package $RELEASE..." *************** *** 26,32 **** TMPDIR=`mktemp -d build_tar_gz.XXXXXX` cd $TMPDIR ! cvs -q -d:ext:and...@cv...:/cvsroot/$BASENAME export -Dtomorrow $MODNAME cd ../ ! MODDIR="$TMPDIR/$MODNAME" # copy the files we need for the release --- 26,32 ---- TMPDIR=`mktemp -d build_tar_gz.XXXXXX` cd $TMPDIR ! cvs -q -d:ext:and...@cv...:/cvsroot/$BASENAME export -Dtomorrow $MODULE cd ../ ! MODDIR="$TMPDIR/$MODULE" # copy the files we need for the release *************** *** 34,45 **** cp -R $MODDIR/t $RELEASE cp -R $MODDIR/Data $RELEASE # make the tar tar -zcf $RELEASE.tar.gz $RELEASE - # cleanup - rm -rf $RELEASE - rm -rf $TMPDIR - echo "...done" --- 34,42 ---- cp -R $MODDIR/t $RELEASE cp -R $MODDIR/Data $RELEASE + rm -rf $TMPDIR # make the tar tar -zcf $RELEASE.tar.gz $RELEASE echo "...done" --- NEW FILE: build_deb.sh --- #!/bin/bash ## ---------------------------------------------------------------------------- if [ -z "$1" ]; then echo "Please specify a release version (e.g 0.1)" exit 1; fi if [ -z "$2" ]; then echo "Please specify a Debian revision (e.g 1)" exit 1; fi # setup env vars VERSION=$1 REVISION=$2 PROJECTNAME="data-pluginfile" MODULE="data-pluginfiles" PACKAGE="lib$MODULE-perl" PACKAGEFILENAME="${PACKAGE}_$VERSION-${REVISION}_all.deb" echo "Building package $PACKAGEFILENAME..." # remove any leftover old directories and create a new one if [ -d "$PACKAGE" ]; then rm -rf "$PACKAGE" fi if [ -f "$PACKAGEFILENAME" ]; then rm -f "$PACKAGEFILENAME" fi # export a copy of the module to a temporary directory TMPDIR=`mktemp -d build_deb.XXXXXX` cd $TMPDIR cvs -q -d:ext:and...@cv...:/cvsroot/$PROJECTNAME export -Dtomorrow $MODULE cd ../ MODDIR="$TMPDIR/$MODULE" # make all the relvant directories mkdir $PACKAGE mkdir $PACKAGE/DEBIAN mkdir -p $PACKAGE/usr/share/perl5/Data mkdir -p $PACKAGE/usr/share/man/man3 mkdir -p $PACKAGE/usr/share/doc/$PACKAGE # create the control file m4 -P \ --define=__PACKAGE__="$PACKAGE" \ --define=__VERSION__="$VERSION-$REVISION" \ control.m4 > $PACKAGE/DEBIAN/control # sort a few things out in the filesystem hierarchy ## create the man page TMP=`mktemp` pod2man $MODDIR/Data/PluginFiles.pm $TMP mv $TMP $PACKAGE/usr/share/man/man3/Data::PluginFiles.3pm gzip --best $PACKAGE/usr/share/man/man3/Data::PluginFiles.3pm chmod 644 $PACKAGE/usr/share/man/man3/Data::PluginFiles.3pm.gz # do the README, changelogs and copyright cp $MODDIR/README $PACKAGE/usr/share/doc/$PACKAGE/ gzip --best $PACKAGE/usr/share/doc/$PACKAGE/README cp $MODDIR/docs/changelog $MODDIR/docs/changelog.Debian $PACKAGE/usr/share/doc/$PACKAGE/ gzip --best $PACKAGE/usr/share/doc/$PACKAGE/changelog gzip --best $PACKAGE/usr/share/doc/$PACKAGE/changelog.Debian cp $MODDIR/docs/copyright $PACKAGE/usr/share/doc/$PACKAGE/ # finally (phew) copy the program file(s) cp -R $MODDIR/Data/PluginFiles.pm $PACKAGE/usr/share/perl5/Data/ # remove waste rm -rf $TMPDIR fakeroot dpkg --build $PACKAGE mv $PACKAGE.deb $PACKAGEFILENAME ## ---------------------------------------------------------------------------- |
|
From: Chilts <and...@us...> - 2005-04-30 08:51:28
|
Update of /cvsroot/data-pluginfile/data-pluginfiles/docs In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv9284 Modified Files: copyright Log Message: - correct pointer to Perl copyright Index: copyright =================================================================== RCS file: /cvsroot/data-pluginfile/data-pluginfiles/docs/copyright,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** copyright 30 Apr 2005 08:46:58 -0000 1.1 --- copyright 30 Apr 2005 08:51:19 -0000 1.2 *************** *** 14,16 **** the same terms as Perl itself. ! See http://www.perl.com/pub/a/language/misc/Artistic.html --- 14,17 ---- the same terms as Perl itself. ! On Debian GNU systems the Perl copyright and licensing terms is located at ! /usr/share/doc/perl/copyright. |
|
From: Chilts <and...@us...> - 2005-04-30 08:48:59
|
Update of /cvsroot/data-pluginfile/data-pluginfiles/scripts In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7923 Added Files: gen_Changelog.sh Log Message: - make ChangeLog automatic --- NEW FILE: gen_Changelog.sh --- #!/bin/bash cd ../ cvs2cl mv -f ChangeLog docs/changelog |
|
From: Chilts <and...@us...> - 2005-04-30 08:47:08
|
Update of /cvsroot/data-pluginfile/data-pluginfiles/docs In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7042 Added Files: copyright Log Message: - add copyright for Debian packaging --- NEW FILE: copyright --- This is a Debian package of the perl module Data::PluginFiles. See: http://data-pluginfile.sourceforge.net Author: Andrew Chilton < andychilton AT sourceforge DOT net > Copyright and Licensing Terms: This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See http://www.perl.com/pub/a/language/misc/Artistic.html |
|
From: Chilts <and...@us...> - 2005-04-30 08:35:12
|
Update of /cvsroot/data-pluginfile/data-pluginfiles/docs In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv642 Added Files: changelog changelog.Debian Log Message: - need changelogs for Debian packages (quick fix) --- NEW FILE: changelog --- --- NEW FILE: changelog.Debian --- libdata-pluginfiles-perl Debian maintainer and upstream author are identical. Therefore see also normal changelog file for Debian changes. |
|
From: Chilts <and...@us...> - 2005-04-30 08:29:46
|
Update of /cvsroot/data-pluginfile/data-pluginfiles/docs In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv30823/docs Log Message: Directory /cvsroot/data-pluginfile/data-pluginfiles/docs added to the repository |
|
From: Chilts <and...@us...> - 2005-04-30 05:43:18
|
Update of /cvsroot/data-pluginfile/data-pluginfiles/scripts In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv16508 Added Files: build_tar_gz.sh Log Message: - first version of build script --- NEW FILE: build_tar_gz.sh --- #!/bin/bash ## ---------------------------------------------------------------------------- if [ -z "$1" ]; then echo "Please specify a release version (e.g 0.1)" exit 1; fi # setup env vars VERSION=$1 BASENAME="data-pluginfile" MODNAME="data-pluginfiles" RELEASE="$BASENAME-$VERSION" echo "Building package $RELEASE..." # remove any leftover old directories and create a new one if [ -d "$RELEASE" ]; then rm -rf $RELEASE fi if [ -f "$RELEASE.tar.gz" ]; then rm -f $RELEASE.tar.gz fi mkdir $RELEASE # export a copy of the module to a temporary directory TMPDIR=`mktemp -d build_tar_gz.XXXXXX` cd $TMPDIR cvs -q -d:ext:and...@cv...:/cvsroot/$BASENAME export -Dtomorrow $MODNAME cd ../ MODDIR="$TMPDIR/$MODNAME" # copy the files we need for the release cp $MODDIR/README $MODDIR/Makefile.PL $RELEASE cp -R $MODDIR/t $RELEASE cp -R $MODDIR/Data $RELEASE # make the tar tar -zcf $RELEASE.tar.gz $RELEASE # cleanup rm -rf $RELEASE rm -rf $TMPDIR echo "...done" ## ---------------------------------------------------------------------------- |
|
From: Chilts <and...@us...> - 2005-04-30 04:48:38
|
Update of /cvsroot/data-pluginfile/data-pluginfiles/t In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23090/t Modified Files: arrays.dat heredocs.dat Added Files: 00load.t 01data.t 02comments.t 03arrays.t 04heredocs.t comments.dat data.dat load.dat Removed Files: params.dat quotes.dat strings.dat Log Message: - addition of much nicer unit test (removal of old data files) - bug fix in the way an incorrect file was loaded (returns undef properly) --- NEW FILE: 04heredocs.t --- ## -------------------------------------------------------------------*-perl-*- use strict; use Test; use Data::PluginFiles; BEGIN { $| = 1; plan( tests => 7, todo => [] ); } chdir('t') if ( -d 't' ); my $data; my ($name, $params); ## ---------------------------------------------------------------------------- # Test: load the file $data = Data::PluginFiles->new('heredocs.dat'); ok($data); ## ---------------------------------------------------------------------------- # Test: see what the values are ($name, $params) = $data->get_line(0); ok( $name, 'HereDocs1' ); ok( keys %$params, 1 ); ok( $params->{val}, "This is a 1 liner heredoc" ); ## ---------------------------------------------------------------------------- # Test: see what the values are ($name, $params) = $data->get_line(1); ok( $name, 'HereDocs2' ); ok( keys %$params, 1 ); ok( $params->{val}, "This is a\n2 liner heredoc" ); ## ---------------------------------------------------------------------------- --- NEW FILE: comments.dat --- # -*- perl -*- this is a comment Plugin: par=val --- NEW FILE: 00load.t --- ## -------------------------------------------------------------------*-perl-*- use strict; use Test; BEGIN { $| = 1; plan( tests => 3, todo => [] ); } use Data::PluginFiles; my $loaded = 1; ok($loaded); chdir('t') if ( -d 't' ); my $data; my ($name, $params); ## ---------------------------------------------------------------------------- # Test: load a simple file $data = Data::PluginFiles->new('load.dat'); ok($data); ## ---------------------------------------------------------------------------- # Test: load a random file, but shouldn't fail or warn $data = Data::PluginFiles->new('00load.t'); ok( $data, undef ); ## ---------------------------------------------------------------------------- --- params.dat DELETED --- --- NEW FILE: 01data.t --- ## -------------------------------------------------------------------*-perl-*- use strict; use Test; use Data::PluginFiles; BEGIN { $| = 1; plan( tests => 21, todo => [] ); } my $loaded = 1; ok($loaded); chdir('t') if ( -d 't' ); my $data; my ($name, $params); ## ---------------------------------------------------------------------------- # Test: load a simple file $data = Data::PluginFiles->new('data.dat'); ok($data); ## ---------------------------------------------------------------------------- # Test: see what the values are ($name, $params) = $data->get_line(0); ok( $name, 'Simple' ); ok( keys %$params, 1 ); ok( $params->{par1}, 'val1' ); ## ---------------------------------------------------------------------------- # Test: see what the values are ($name, $params) = $data->get_line(1); ok( $name, 'QuotedSingle' ); ok( keys %$params, 1 ); ok( $params->{par1}, 'val1' ); ## ---------------------------------------------------------------------------- # Test: see what the values are ($name, $params) = $data->get_line(2); ok( $name, 'QuotedDouble' ); ok( keys %$params, 1 ); ok( $params->{par1}, 'val1' ); ## ---------------------------------------------------------------------------- # Test: see what the values are ($name, $params) = $data->get_line(3); ok( $name, 'Escaped' ); ok( keys %$params, 1 ); ok( $params->{withspaces}, 'This is a string' ); ## ---------------------------------------------------------------------------- # Test: see what the values are ($name, $params) = $data->get_line(4); ok( $name, 'Quoted' ); ok( keys %$params, 1 ); ok( $params->{withspaces}, 'This is a string' ); ## ---------------------------------------------------------------------------- # Test: see what the values are ($name, $params) = $data->get_line(5); ok( $name, 'Multiple' ); ok( keys %$params, 2 ); ok( $params->{par1}, 'val1' ); ok( $params->{par2}, 'val2' ); ## ---------------------------------------------------------------------------- --- quotes.dat DELETED --- --- NEW FILE: data.dat --- Simple: par1=val1 QuotedSingle: par1='val1' QuotedDouble: par1="val1" Escaped: withspaces=This\ is\ a\ string Quoted: withspaces="This is a string" Multiple: par1=val1 par2=val2 --- NEW FILE: load.dat --- Simple: par1=val1 --- strings.dat DELETED --- --- NEW FILE: 02comments.t --- ## -------------------------------------------------------------------*-perl-*- use strict; use Test; use Data::PluginFiles; BEGIN { $| = 1; plan( tests => 4, todo => [] ); } chdir('t') if ( -d 't' ); my $data; my ($name, $params); ## ---------------------------------------------------------------------------- # Test: load a simple file $data = Data::PluginFiles->new('comments.dat'); ok($data); ## ---------------------------------------------------------------------------- # Test: see what the values are ($name, $params) = $data->get_line(0); ok( $name, 'Plugin' ); ok( keys %$params, 1 ); ok( $params->{par}, 'val' ); ## ---------------------------------------------------------------------------- --- NEW FILE: 03arrays.t --- ## -------------------------------------------------------------------*-perl-*- use strict; use Test; use Data::PluginFiles; BEGIN { $| = 1; plan( tests => 16, todo => [] ); } chdir('t') if ( -d 't' ); my $data; my ($name, $params); ## ---------------------------------------------------------------------------- # Test: load the file $data = Data::PluginFiles->new('arrays.dat'); ok($data); ## ---------------------------------------------------------------------------- # Test: see what the values are ($name, $params) = $data->get_line(0); ok( $name, 'Arrays1' ); ok( keys %$params, 1 ); ok( @{$params->{val}}, 3 ); ok( $params->{val}[0], 'a' ); ok( $params->{val}[1], 'b' ); ok( $params->{val}[2], 'c' ); ## ---------------------------------------------------------------------------- # Test: see what the values are ($name, $params) = $data->get_line(1); ok( $name, 'Arrays2' ); ok( keys %$params, 2 ); ok( @{$params->{par1}}, 3 ); ok( @{$params->{par2}}, 2 ); ok( $params->{par1}[0], 'a' ); ok( $params->{par1}[1], 'b' ); ok( $params->{par1}[2], 'c' ); ok( $params->{par2}[0], 'd' ); ok( $params->{par2}[1], 'e' ); ## ---------------------------------------------------------------------------- Index: heredocs.dat =================================================================== RCS file: /cvsroot/data-pluginfile/data-pluginfiles/t/heredocs.dat,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -d -r1.1.1.1 -r1.2 *** heredocs.dat 30 Apr 2005 00:04:13 -0000 1.1.1.1 --- heredocs.dat 30 Apr 2005 04:48:29 -0000 1.2 *************** *** 1,16 **** ! # -*- perl -*- ! Dubbler: action=register plugin=Chilts::PtfDeleteAllSections ! Dubbler: action=register plugin=Chilts::PtfAddSection ! ! PtfDeleteAllSections: confirm ! ! PtfAddSection: section=HER1 name=<<NAME layout=1 ! Section on One Line ! NAME ! PtfAddSection: section=HER2 name=<<NAME desc=<<DESC add_to_end ! 2nd HereNow << Test ! NAME ! But this one also has a long description, which also has newlines in it. ! Like just then. ! And here too. ! DESC --- 1,7 ---- ! HereDocs1: val=<<HEREDOC ! This is a 1 liner heredoc ! HEREDOC ! HereDocs2: val=<<HEREDOC ! This is a ! 2 liner heredoc ! HEREDOC Index: arrays.dat =================================================================== RCS file: /cvsroot/data-pluginfile/data-pluginfiles/t/arrays.dat,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -d -r1.1.1.1 -r1.2 *** arrays.dat 30 Apr 2005 00:04:13 -0000 1.1.1.1 --- arrays.dat 30 Apr 2005 04:48:29 -0000 1.2 *************** *** 1,4 **** ! Dubbler: action=print action=edit action=cut action=paste other=action ! DubblerA: a=a0 a=a1 a=a2 a=a3 a=a4 a=a5 ! DubblerB: b=1 b=2 b=3 b=4 b=5 b=6 ! DubblerC: a=a1 b=b1 a=a2 b=b2 c=c1 d=d1 c=c2 d=d2 a=a3 b=b3 --- 1,2 ---- ! Arrays1: val=a val=b val=c ! Arrays2: par1=a par1=b par1=c par2=d par2=e |
|
From: Chilts <and...@us...> - 2005-04-30 04:48:37
|
Update of /cvsroot/data-pluginfile/data-pluginfiles/Data In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23090/Data Modified Files: PluginFiles.pm Log Message: - addition of much nicer unit test (removal of old data files) - bug fix in the way an incorrect file was loaded (returns undef properly) Index: PluginFiles.pm =================================================================== RCS file: /cvsroot/data-pluginfile/data-pluginfiles/Data/PluginFiles.pm,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -d -r1.1.1.1 -r1.2 *** PluginFiles.pm 30 Apr 2005 00:04:13 -0000 1.1.1.1 --- PluginFiles.pm 30 Apr 2005 04:48:29 -0000 1.2 *************** *** 35,39 **** $self->{filename} = $filename; ! $self->_process_file(); return $self; --- 35,41 ---- $self->{filename} = $filename; ! unless ( $self->_process_file() ) { ! return; ! } return $self; *************** *** 78,82 **** my ($name, $params) = $self->_parse_line($line); ! return undef unless defined $name and defined $params; #print "name=$name, params=$params\n"; --- 80,84 ---- my ($name, $params) = $self->_parse_line($line); ! return unless defined $name and defined $params; #print "name=$name, params=$params\n"; *************** *** 132,135 **** --- 134,140 ---- $line =~ /^(\w+):\s+(.*)$/; my $plugin = $1; + unless ( defined $plugin ) { + return; + } my @params = shellwords($2); |
