Update of /cvsroot/fink/fink/perlmod/Fink
In directory sc8-pr-cvs1:/tmp/cvs-serv5307
Modified Files:
ChangeLog Services.pm
Log Message:
Allow spaces after here-document separators
Index: ChangeLog
===================================================================
RCS file: /cvsroot/fink/fink/perlmod/Fink/ChangeLog,v
retrieving revision 1.225
retrieving revision 1.226
diff -u -r1.225 -r1.226
--- ChangeLog 11 Dec 2002 22:45:41 -0000 1.225
+++ ChangeLog 20 Dec 2002 02:57:48 -0000 1.226
@@ -1,3 +1,7 @@
+2002-12-19 Ben Hines <[EMAIL PROTECTED]>
+
+ * Services.pm: Allow whitespace after here-document separators.
+
2002-12-11 Ben Hines <[EMAIL PROTECTED]>
* Services.pm, PkgVersion.pm: Pass filename to read_properties_var to
Index: Services.pm
===================================================================
RCS file: /cvsroot/fink/fink/perlmod/Fink/Services.pm,v
retrieving revision 1.29
retrieving revision 1.30
diff -u -r1.29 -r1.30
--- Services.pm 11 Dec 2002 22:45:48 -0000 1.29
+++ Services.pm 20 Dec 2002 02:57:48 -0000 1.30
@@ -139,12 +139,12 @@
foreach (@lines) {
chomp;
if ($heredoc > 0) {
- if (/^\s*<<$/) {
+ if (/^\s*<<\s*$/) {
$heredoc--;
$hash->{$lastkey} .= $_."\n" if ($heredoc > 0);
} else {
$hash->{$lastkey} .= $_."\n";
- $heredoc++ if (/<<$/);
+ $heredoc++ if (/<<\s*$/);
}
} else {
next if /^\s*\#/; # skip comments
-------------------------------------------------------
This SF.NET email is sponsored by: Geek Gift Procrastinating?
Get the perfect geek gift now! Before the Holidays pass you by.
T H I N K G E E K . C O M http://www.thinkgeek.com/sf/
_______________________________________________
Fink-commits mailing list
[EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/fink-commits
