From: Frank Wiegand <frank.wiegand@gmail.com>
Date: Sat, 20 Dec 2008 19:50:26 +0000 (+0100)
Subject: PATCH -- POD error in Symbol.pm
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=640238c5b29c59bf811361d5e88cd334fb2e4cb9;p=p5sagit%2Fp5-mst-13.2.git

PATCH -- POD error in Symbol.pm

Hi,

two POD errors in Symbol.pm:

- wrong comment,
- missing semicolon.

Patch is attached.

Thanks, Frank
---

diff --git a/lib/Symbol.pm b/lib/Symbol.pm
index 3bb5d92..1e408b5 100644
--- a/lib/Symbol.pm
+++ b/lib/Symbol.pm
@@ -18,8 +18,8 @@ Symbol - manipulate Perl symbols and their names
     # replace *FOO{IO} handle but not $FOO, %FOO, etc.
     *FOO = geniosym;
 
-    print qualify("x"), "\n";              # "Test::x"
-    print qualify("x", "FOO"), "\n"        # "FOO::x"
+    print qualify("x"), "\n";              # "main::x"
+    print qualify("x", "FOO"), "\n";       # "FOO::x"
     print qualify("BAR::x"), "\n";         # "BAR::x"
     print qualify("BAR::x", "FOO"), "\n";  # "BAR::x"
     print qualify("STDOUT", "FOO"), "\n";  # "main::STDOUT" (global)
@@ -85,7 +85,7 @@ require Exporter;
 @EXPORT = qw(gensym ungensym qualify qualify_to_ref);
 @EXPORT_OK = qw(delete_package geniosym);
 
-$VERSION = '1.06';
+$VERSION = '1.07';
 
 my $genpkg = "Symbol::";
 my $genseq = 0;