[perl-Glib] Export SOURCE_CONTINUE and SOURCE_REMOVE

[Torsten SchÃnfeld <tsch src gnome org>]

commit b0e505a75e0149182b2405ffd00f80d21ab097af
Author: Emmanuel Rodriguez <emmanuel rodriguez gmail com>
Date:   Tue Jul 21 21:50:55 2009 +0200

    Export SOURCE_CONTINUE and SOURCE_REMOVE
    
    This patch allows the constants SOURCE_CONTINUE and SOURCE_REMOVE to be
    exported when doing:
    
      use Glib ':constants';
    
    It also allows the constants to be exported when doing:
    
      use Glib qw(TRUE FALSE SOURCE_CONTINUE SOURCE_REMOVE);

 NEWS        |    4 +++-
 lib/Glib.pm |    7 ++++---
 2 files changed, 7 insertions(+), 4 deletions(-)
---
diff --git a/NEWS b/NEWS
index c07d899..a9f982e 100644
--- a/NEWS
+++ b/NEWS
@@ -1,7 +1,9 @@
 Overview of changes in Glib <next>
 =================================
 
-* Create and register a GType for GConnectFlags
+* Export the constants SOURCE_CONTINUE and SOURCE_REMOVE on request.
+  (RT #48070)
+* Create and register a GType for GConnectFlags.
 
 Overview of changes in Glib 1.252
 =================================
diff --git a/lib/Glib.pm b/lib/Glib.pm
index 07073a9..ab8ffc3 100644
--- a/lib/Glib.pm
+++ b/lib/Glib.pm
@@ -30,15 +30,14 @@ our @ISA = qw(DynaLoader Exporter);
 use constant {
 	TRUE  => 1,
 	FALSE => !1, # can't use !TRUE at this point
+	SOURCE_CONTINUE => 1,
+	SOURCE_REMOVE   => !1,
 	G_PRIORITY_HIGH         => -100,
 	G_PRIORITY_DEFAULT      =>  0,
 	G_PRIORITY_HIGH_IDLE    =>  100,
 	G_PRIORITY_DEFAULT_IDLE =>  200,
 	G_PRIORITY_LOW	        =>  300,
 	G_PARAM_READWRITE       => [qw/readable writable/],
-
-	SOURCE_CONTINUE         => 1,
-	SOURCE_REMOVE           => !1,
 };
 
 # export nothing by default.
@@ -47,6 +46,8 @@ our %EXPORT_TAGS = (
 	constants => [qw/
 			TRUE
 			FALSE
+			SOURCE_CONTINUE
+			SOURCE_REMOVE
 			G_PRIORITY_HIGH
 			G_PRIORITY_DEFAULT
 			G_PRIORITY_HIGH_IDLE