[svn:parrot] r37795 - in trunk/runtime/parrot/library: . Data

[barney at svn.parrot.org]

Author: barney
Date: Sat Mar 28 11:18:18 2009
New Revision: 37795
URL: https://trac.parrot.org/parrot/changeset/37795

Log:
[library] loading with "library" is bad with installed Parrot"

Modified:
   trunk/runtime/parrot/library/Data/Dumper.pir
   trunk/runtime/parrot/library/dumper.pir

Modified: trunk/runtime/parrot/library/Data/Dumper.pir
==============================================================================
--- trunk/runtime/parrot/library/Data/Dumper.pir	Sat Mar 28 02:16:29 2009	(r37794)
+++ trunk/runtime/parrot/library/Data/Dumper.pir	Sat Mar 28 11:18:18 2009	(r37795)
@@ -6,7 +6,7 @@
     goto END
 
   load_library:
-        load_bytecode "library/Data/Dumper/Default.pir"
+        load_bytecode "Data/Dumper/Default.pir"
         newclass $P0, "Data::Dumper"
 END:
     .return ()

Modified: trunk/runtime/parrot/library/dumper.pir
==============================================================================
--- trunk/runtime/parrot/library/dumper.pir	Sat Mar 28 02:16:29 2009	(r37794)
+++ trunk/runtime/parrot/library/dumper.pir	Sat Mar 28 11:18:18 2009	(r37795)
@@ -1,8 +1,9 @@
 # $Id$
+# Copyright (C) 2004-2009, Parrot Foundation.
 
 =head1 TITLE
 
-dumper.pir - PIR version of Data::Dumper
+dumper.pir - PIR version of Perl 5's Data::Dumper module 
 
 =head1 VERSION
 
@@ -19,7 +20,7 @@
     ...
 
     END
-    .include "library/dumper.pir"
+    .include "dumper.pir"
 
 
 =head1 DESCRIPTION
@@ -31,7 +32,7 @@
 # first method prints usage information
 .sub __library_dumper_onload
     print "usage:"
-    print "\tload_bytecode \"library/Data/Dumper.pir\"\n"
+    print "\tload_bytecode \"Data/Dumper.pir\"\n"
     print "\t...\n"
     print "\tnew dumper, \"Data::Dumper\"\n"
     print "\tdumper.\"dumper\"( foo, \"foo\" )\n\n"
@@ -70,7 +71,7 @@
 the dumped data as a string, like Perl's Data::Dumper. Instead,
 everything is printed out using C<print>.
 
-B<Note: #2> Hash keys are now sorted using C<_sort()> (library/sort.pir)
+B<Note: #2> Hash keys are now sorted using C<_sort()> (sort.pir)
 
 =cut
 
@@ -150,13 +151,13 @@
     goto TYPE_OK
 
   load_dd_pir:
-    load_bytecode "library/Data/Dumper.pir"
+    load_bytecode "Data/Dumper.pir"
     get_class dd_class, "Data::Dumper"
     if null dd_class goto no_class
     goto TYPE_OK
 
   no_class:
-    print "fatal error: failure while loading library/Data/Dumper.pir\n"
+    print "fatal error: failure while loading Data/Dumper.pir\n"
     end
 TYPE_OK:
 
@@ -179,14 +180,10 @@
 
 Jens Rieks E<lt>parrot at jensbeimsurfen dot deE<gt> is the author
 and maintainer.
-Please send patches and suggestions to the Perl 6 Internals mailing list.
-
-=head1 COPYRIGHT
-
-Copyright (C) 2004-2008, Parrot Foundation.
 
 =cut
 
+
 # Local Variables:
 #   mode: pir
 #   fill-column: 100