[perl-GStreamer] Hush a few warnings in the test suite

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

commit 50d037fa41582b2495fc34f4b90c571685ea6e16
Author: Torsten Schönfeld <kaffeetisch gmx de>
Date:   Sat May 14 12:47:10 2011 +0200

    Hush a few warnings in the test suite

 t/GstGhostPad.t |    1 +
 t/GstRegistry.t |    2 +-
 2 files changed, 2 insertions(+), 1 deletions(-)
---
diff --git a/t/GstGhostPad.t b/t/GstGhostPad.t
index 00ee87f..6f2b6bf 100644
--- a/t/GstGhostPad.t
+++ b/t/GstGhostPad.t
@@ -21,6 +21,7 @@ SKIP: {
   is($gpad -> get_target(), $pad);
 }
 
+$pad = GStreamer::Pad -> new("urgs", "src");
 $gpad = GStreamer::GhostPad -> new(undef, $pad);
 SKIP: {
   skip 'new() returned undef', 2
diff --git a/t/GstRegistry.t b/t/GstRegistry.t
index 702fbe4..0650088 100644
--- a/t/GstRegistry.t
+++ b/t/GstRegistry.t
@@ -11,7 +11,7 @@ use GStreamer -init;
 my $registry = GStreamer::Registry -> get_default();
 isa_ok($registry, "GStreamer::Registry");
 
-$registry -> scan_path(".");
+$registry -> scan_path("~/.gstreamer-0.10");
 is_deeply([$registry -> get_path_list()], []);
 
 isa_ok(($registry -> get_plugin_list())[0], "GStreamer::Plugin");