Changeset 17704 for examples

Timestamp:

09/06/07 19:57:50 (16 months ago)

Author:

moritz

Message:

updated a few examples to s/err/orelse/

Location:

examples

Files:

• mandel.pl (modified) (1 diff)
• network/echoserver.pl (modified) (2 diffs)
• rules/unitsdat-grammar.pm (modified) (1 diff)

examples/mandel.pl

@@ -1 +1 @@
 use v6-alpha;
 
-# vim:ft=perl:sw=4:
+# vim:ft=perl:sw=4:syn=perl6
 # Print the Mandlebrot set
 #

examples/network/echoserver.pl

@@ -4 +4 @@
 
 my $port = @ARGS[0] // 1024;
-my $sock = listen($port) or die "Could not open socket\n";
+my $sock = listen($port) orelse die "Could not open socket\n";
 say "$?FILE, ready";
 say "port: $port";
-while(1) {
+loop {
         my $client = $sock.accept();
         my $thr = async {
@@ -13 +13 @@
                 $client.flush;
         
-                while(1) {
+                loop {
                         $client.print('echo>');
                         $client.flush;

examples/rules/unitsdat-grammar.pm

@@ -732 +732 @@
         # NumUnit handles most of the traditional unit stuff via units.dat.
         my $unitsdat = open "/usr/share/misc/units.dat"
-            orelse die "You don't have a readable /usr/share/misc/units.dat: $!";
+            orelse die "Can't read /usr/share/misc/units.dat: $!";
         cat =$unitsdat ~~ /<UnitsDat>/;
         $unitsdat.close;