#38 Filename variable changes

[Poul Sørensen]

The name of the filename-variable changes depending
on whether --use-cpan-file-tail is present or not.

If --use-cpan-file-tail is present, the variable is named "$Filename",
but by default (no --use-cpan-file-tail) the variable is named "$filename".

Have to write some hackish work-around in .swatchrc:

perlcode 0 my $v = '$filename'; if ( $File::Tail::VERSION ) { $v='$Filename'}; my $c='$f='.$v;
perlcode 1 my $f; eval $c;

(and yes, it could have been obfuscated even more:-) )

- - - - - - - - - - - - - - -
print $Std{'Disclaimer'};
$CC = +-1; # the Computer Constant - very useful when writing loops.
$|=1; printf "Just another [lazy] %s hacker\r",("PERL","perl")[sleep(1)+$i] while ($i=$i?0:$CC,1);
__EOF__