The argument of UCW::Temple::start() is no longer mandatory

diff --git a/UCW/Temple.pm b/UCW/Temple.pm
index eded62400cf6ebbaef4f4a4a702925a5b86cd1ad..1a3dc971f10f5980da10ccbdea2458d3151db1f3 100644 (file)
--- a/UCW/Temple.pm
+++ b/UCW/Temple.pm
@@ -149,7 +149,7 @@ sub parse_file($) {
        parse_string($text);
 }
 
-sub start($)
+sub start(;$)
 {
        $arguments = $_[0];
        @cond = (1);

diff --git a/temple b/temple
index 370535f98acf94619530edabb0c2397c6f9b0793..2db9c305cced0a33f2ec4ec2940de9dc3961049e 100755 (executable)
--- a/temple
+++ b/temple
@@ -16,7 +16,7 @@ if (defined $out) {
        open STDOUT, ">$out" or die "Cannot open $out: $!";
 }
 if (!@ARGV) { push @ARGV, "-"; }
-UCW::Temple::start(undef);
+UCW::Temple::start();
 foreach (@ARGV) {
        UCW::Temple::parse_file($_);
 }