todotxt/Text-Todo/bin/todo.pl - diff

Return to todo.pl CVS log

Up to [local] / todotxt / Text-Todo / bin

version 1.18, 2010/01/19 18:53:36

version 1.19, 2010/01/21 21:10:38

Line 1

#!/usr/bin/perl

# $AFresh1: todo.pl,v 1.17 2010/01/16 06:07:13 andrew Exp $

# $AFresh1: todo.pl,v 1.18 2010/01/19 18:53:36 andrew Exp $

########################################################################

# todo.pl *** a perl version of todo.sh. Uses Text::Todo.

Line 472

if (s/^\s*export\s+//xms) {

my ( $key, $value ) = /^([^=]+)\s*=\s*"?(.*?)"?\s*$/xms;

if ($key) {

foreach my $k ( keys %config ) {

foreach my $k ( keys %{ $config } ) {

$value =~ s/\$\Q$k\E/$config{$k}/gxms;

$value =~ s/\$\Q$k\E/$config->{$k}/gxms;

$value =~ s/\${\Q$k\E}/$config{$k}/gxms;

$value =~ s/\${\Q$k\E}/$config->{$k}/gxms;

}

foreach my $k ( keys %ENV ) {

$value =~ s/\$\Q$k\E/$ENV{$k}/gxms;