r32019 - /trunk/libglib-perl/debian/patches/fix-gtks-whatis

[ryan52-guest at users.alioth.debian.org]

Author: ryan52-guest
Date: Fri Mar 13 07:59:04 2009
New Revision: 32019

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=32019
Log:
remove my commented out debug statements

Modified:
    trunk/libglib-perl/debian/patches/fix-gtks-whatis

Modified: trunk/libglib-perl/debian/patches/fix-gtks-whatis
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libglib-perl/debian/patches/fix-gtks-whatis?rev=32019&op=diff
==============================================================================
--- trunk/libglib-perl/debian/patches/fix-gtks-whatis (original)
+++ trunk/libglib-perl/debian/patches/fix-gtks-whatis Fri Mar 13 07:59:04 2009
@@ -32,7 +32,7 @@
  }
  
  sub preprocess_pod
-@@ -1365,6 +1375,35 @@
+@@ -1365,6 +1375,31 @@
  	} while (@dirs);
  }
  
@@ -48,20 +48,16 @@
 +    } elsif($perlname =~ m/^Gnome2::/) {
 +        $cname =~ s/^Gnome2::/Gnome/;
 +    } else {
-+#        print "Weird: " . $perlname . "\n";
 +        return;
 +    }
 +    if($cname =~ m/::/) {
-+#        print "Uhuh: " . $perlname . "\n";
 +        $cname =~ s/:://g;
 +    }
 +    my $tmp;
 +    eval { $tmp = Glib::Type->package_from_cname($cname); };
 +    if($@ || $tmp ne $perlname) {
-+#        print "Err: " . $perlname . '->' . $cname . "\n";
 +        return;
 +    }
-+#    print "W00T: " . $perlname . '->' . $cname . "\n";
 +    return $cname;
 +}
 +