Changeset 5579

Timestamp:

06/25/09 09:17:15 (3 years ago)

Author:

szabgab

Message:

replace regex that requires 5.10 by split

File:

• trunk/Padre/lib/Padre/DocBrowser/POD.pm (modified) (1 diff)

trunk/Padre/lib/Padre/DocBrowser/POD.pm

@@ -131 +131 @@
 sub split_link {
         my $query = shift;
-        my($doc,$section) = $query =~ m|([^/]+)/?+(.*+)|;
+        my ($doc, $section) = split /\//, $query, 2; # was m|([^/]+)/?+(.*+)|;
 }