X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=demo%2Fhello_demo;fp=bin%2Fhello_demo;h=3fe85d93a2e33f1d42ba2a751268fbf0a953eff0;hb=9a1ca27b4e9283a89dbcc627641dafeb07ccacb8;hp=313c5c1e7b658563299534627e47946f84367813;hpb=907cbc6d770ea6bf36c1649d1952caaccf17d420;p=urisagit%2FStem.git

diff --git a/bin/hello_demo b/demo/hello_demo
similarity index 94%
rename from bin/hello_demo
rename to demo/hello_demo
index 313c5c1..3fe85d9 100755
--- a/bin/hello_demo
+++ b/demo/hello_demo
@@ -7,7 +7,7 @@ our $s ;
 print "HELLO DEMO\n" ;
 
 use File::Basename qw( basename );
-$ENV{PATH} .= ':' . basename( $0 ) . ':.';
+$ENV{PATH} .= ':' . basename( $0 ) . ':./bin:.';
 for my $prog qw( run_stem xterm ) {
     die "Can't find $prog in PATH\n" if
         system( "which $prog >/dev/null 2>&1" ) != 0;