Enlightenment CVS committal
Author : leviathan
Project : e17
Module : proto
Dir : e17/proto/etk-perl/etk_test
Modified Files:
etk_test.pl
Log Message:
Some fixes to remove warnings
===================================================================
RCS file: /cvs/e/e17/proto/etk-perl/etk_test/etk_test.pl,v
retrieving revision 1.43
retrieving revision 1.44
diff -u -3 -r1.43 -r1.44
--- etk_test.pl 20 Oct 2006 19:01:34 -0000 1.43
+++ etk_test.pl 23 Nov 2006 20:08:49 -0000 1.44
@@ -1,3 +1,4 @@
+#!/usr/bin/perl -w
use strict;
use POSIX;
use Etk::Simple;
@@ -889,7 +890,7 @@
my $folder = shift;
my $file = undef;
- $folder = %ENV->{HOME} if($folder eq "");
+ $folder = $ENV{HOME} if($folder eq "");
return if($folder eq "");
$iconbox->Clear();
-------------------------------------------------------------------------
Take Surveys. Earn Cash. Influence the Future of IT
Join SourceForge.net's Techsay panel and you'll get the chance to share your
opinions on IT & business topics through brief surveys - and earn cash
http://www.techsay.com/default.php?page=join.php&p=sourceforge&CID=DEVDEV
_______________________________________________
enlightenment-cvs mailing list
enlightenment-cvs@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/enlightenment-cvs
